o * lily/spacing-engraver.cc (stop_translation_timestep): directly

[lilypond.git] / scm / lily.scm

diff --git a/scm/lily.scm b/scm/lily.scm
index b68ddc450672ba5ed67ef0abc26114a717c4c6a9..c91fcb2b888a651d56fa2f00e0857a89ceced355 100644 (file)
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -346,13 +346,15 @@ The syntax is the same as `define*-public'."
                 (lambda (x y)
                   (string<? (car x) (car y)))))))))
 
-(define-public (tweak-grob-property grob sym val)
-  (set! (ly:grob-property grob sym) val))
-
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (define-public (lilypond-main files)
   "Entry point for LilyPond."
 
+  (define (no-files-handler)
+    (ly:usage)
+    (exit 2))
+  
+
   (if (null? files)
       (no-files-handler))
 
@@ -366,10 +368,6 @@ The syntax is the same as `define*-public'."
          (ly:message "")
          (exit 0)))))
 
-(define (no-files-handler)
-  (ly:usage)
-  (exit 2))
-
 (define-public (lilypond-all files)
   (let* ((failed '())
         (handler (lambda (key failed-file)