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 db729e6567beb0c6f3c8490107e6614dc22abba9..d3cc27af551711f44edb4b8d4024c16ea78cc9c4 100644 (file)
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -13,6 +13,7 @@
            `((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 (EPS backend)")
              (internal-type-checking #f "check every property assignment for types")
              (parse-protect #t    "continue when finding errors in inline
 scheme are caught in the parser. If off, halt 
@@ -41,8 +42,7 @@ similar to chord syntax")
                        "dump GC protection info")
              (show-available-fonts #f
                                    "List  font names available.")
-             )
-           ))
+             )))
 
 
 ;; need to do this in the beginning. Other parts of the
@@ -95,6 +95,9 @@ similar to chord syntax")
    "."))
 
 
+;; TeX C++ code actually hooks into TEX_STRING_HASHLIMIT 
+(define-public TEX_STRING_HASHLIMIT 10000000)
+
 
 
 ;; gettext wrapper for guile < 1.7.2
@@ -106,6 +109,8 @@ similar to chord syntax")
   (let* ((file-name (%search-load-path x)))
     (if (ly:get-option 'verbose)
        (ly:progress "[~A" file-name))
+    (if (not file-name)
+       (ly:error (_ "Can't find ~A" x)))
     (primitive-load file-name)
     (if (ly:get-option 'verbose)
        (ly:progress "]"))))
@@ -161,6 +166,7 @@ similar to chord syntax")
 (define (type-check-list location signature arguments)
   "Typecheck a list of arguments against a list of type
 predicates. Print a message at LOCATION if any predicate failed."
+
   (define (recursion-helper signature arguments count) 
     (define (helper pred? arg count) 
       (if (not (pred? arg))
@@ -178,6 +184,7 @@ predicates. Print a message at LOCATION if any predicate failed."
        #t
        (and (helper (car signature) (car arguments) count)
             (recursion-helper (cdr signature) (cdr arguments) (1+ count)))))
+
   (recursion-helper signature arguments 1))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -221,6 +228,7 @@ The syntax is the same as `define*-public'."
          ;; load-from-path
          '("lily-library.scm"
            "file-cache.scm"
+           "define-event-classes.scm"
            "define-music-types.scm"
            "output-lib.scm"
            "c++.scm"
@@ -237,6 +245,7 @@ The syntax is the same as `define*-public'."
            "chord-name.scm"
 
            "parser-ly-from-scheme.scm"
+           "ly-syntax-constructors.scm"
            
            "define-context-properties.scm"
            "translation-functions.scm"