* scm/music-types.scm: junk compat glue

[lilypond.git] / scm / ascii-script.scm

diff --git a/scm/ascii-script.scm b/scm/ascii-script.scm
index 5f5c09752a2988a34e18683d2988430fe4e0c4a5..d25c81946871621175b03bd5cf063347878cc0bf 100644 (file)
--- a/scm/ascii-script.scm
+++ b/scm/ascii-script.scm
@@ -204,8 +204,8 @@
        "")                             ; issue no command
     (func "select-font" (car name-mag-pair))))
 
-(define (start-system height)
-  (func "start-system" height))
+(define (start-system width height)
+  (func "start-system" width height))
 
 (define (stop-system)
   (func "stop-system"))