Fix some bugs in the dynamic engraver and PostScript backend

[lilypond.git] / scm / lily.scm

diff --git a/scm/lily.scm b/scm/lily.scm
index 484c81ecd9c172ac1e2e26557910af75790efdb8..d3cc27af551711f44edb4b8d4024c16ea78cc9c4 100644 (file)
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -13,9 +13,9 @@
            `((point-and-click #t "use point & click")
              (paper-size "a4" "the default paper size")
              (midi-debug #f "generate human readable MIDI")
-             (dump-signatures #f "dump output signatures of each system")
+             (dump-signatures #f "dump output signatures of each system (EPS backend)")
              (internal-type-checking #f "check every property assignment for types")
-             (parse-protect #t "continue when finding errors in inline
+             (parse-protect #t    "continue when finding errors in inline
 scheme are caught in the parser. If off, halt 
 on errors, and print a stack trace.")
              (profile-property-accesses #f "keep statistics of get_property() calls.")
@@ -39,10 +39,9 @@ similar to chord syntax")
              (ttf-verbosity 0
                           "how much verbosity for TTF font embedding?")
              (debug-gc #f
-                       "dump memory debugging statistics")
+                       "dump GC protection info")
              (show-available-fonts #f
                                    "List  font names available.")
-             (read-file-list #f "Read files to be processed from command line arguments")
              )))
 
 
@@ -264,6 +263,7 @@ The syntax is the same as `define*-public'."
            "define-grobs.scm"
            "define-grob-interfaces.scm"
            "define-stencil-commands.scm"
+           "layout-page-layout.scm"
            "titling.scm"
            
            "paper.scm"
@@ -391,14 +391,6 @@ The syntax is the same as `define*-public'."
          (exit 0)))))
 
 (define-public (lilypond-all files)
-  (if (ly:get-option 'read-file-list)
-      (set! files
-           (filter (lambda (s)
-                     (> (string-length s) 0))
-                   (apply append
-                          (map (lambda (f) (string-split (ly:gulp-file f) #\nl))
-                               files)))
-           ))
 
   (if (ly:get-option 'show-available-fonts)
       (begin