release: 1.3.121

[lilypond.git] / scm / ps.scm

diff --git a/scm/ps.scm b/scm/ps.scm
index be85c4c3734bf6fdde892a8acf28d20112cdb7a1..fee21739834b82cf1c6e73d41aedaf2120d5adc3 100644 (file)
--- a/scm/ps.scm
+++ b/scm/ps.scm
@@ -60,9 +60,9 @@
   (define (comment s)
     (string-append "% " s))
 
-  (define (bracket arch_angle arch_width arch_height width height arch_thick thick)
+  (define (bracket arch_angle arch_width arch_height  height arch_thick thick)
     (string-append
-     (numbers->string (list arch_angle arch_width arch_height width height arch_thick thick)) " draw_bracket" ))
+     (numbers->string (list arch_angle arch_width arch_height height arch_thick thick)) " draw_bracket" ))
 
   (define (char i)
     (invoke-char " show" i))