X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Flily.scm;h=807adcb4850c35a7c60c0ec47354189d02754b12;hb=0683bad123e7912518c2b2e796b8cf4d1d528b8a;hp=a36cd5eb84e1c76c28de1a1b7e640bc3cd1a13e0;hpb=2a8c79664174b846da1fe107f429f23536f8724d;p=lilypond.git

diff --git a/scm/lily.scm b/scm/lily.scm
index a36cd5eb84..807adcb485 100644
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -32,7 +32,7 @@
 	      (include-book-title-preview #t "include book-titles in preview images.")
 	      (include-eps-fonts #t "Include fonts in separate-system EPS files.")
 
-	      (pad-eps-boxes #f "Pad EPS bounding boxes to guarantee alignment between systems")
+	      (eps-box-padding #f "Pad EPS bounding box left edge by this much to guarantee alignment between systems")
 
 	      (gui #f "running from gui; redirect stderr to log file")
 	      
@@ -69,6 +69,8 @@ on errors, and print a stack trace.")
 ;;
 (define-scheme-options)
 
+(debug-set! stack 0)
+
 (if (defined? 'set-debug-cell-accesses!)
     (set-debug-cell-accesses! #f))
 
@@ -80,7 +82,10 @@ on errors, and print a stack trace.")
 	     (oop goops)
 	     (srfi srfi-1)
 	     (srfi srfi-13)
-	     (srfi srfi-14))
+	     (srfi srfi-14)
+	     (scm clip-region)
+
+	     )
 
 
 ;; my display
@@ -329,7 +334,8 @@ The syntax is the same as `define*-public'."
 	(,number? . "number")
 	(,output-port? . "output port")   
 	(,pair? . "pair")
-	(,procedure? . "procedure") 
+	(,procedure? . "procedure")
+	(,rhythmic-location? . "rhythmic location")
 	(,scheme? . "any type")
 	(,string? . "string")
 	(,symbol? . "symbol")
@@ -449,7 +455,8 @@ The syntax is the same as `define*-public'."
 	 (lambda () (ly:parse-file file-name))
 	 (lambda (x . args) (handler x file-name))))
 
-(use-modules (scm editor))
+(use-modules (scm editor)
+	     )
 
 (define-public (gui-main files)
   (if (null? files)