(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")
;;
(define-scheme-options)
+(debug-set! stack 0)
+
(if (defined? 'set-debug-cell-accesses!)
(set-debug-cell-accesses! #f))
(oop goops)
(srfi srfi-1)
(srfi srfi-13)
- (srfi srfi-14))
+ (srfi srfi-14)
+ (scm clip-region)
+
+ )
;; my display
(,number? . "number")
(,output-port? . "output port")
(,pair? . "pair")
- (,procedure? . "procedure")
+ (,procedure? . "procedure")
+ (,rhythmic-location? . "rhythmic location")
(,scheme? . "any type")
(,string? . "string")
(,symbol? . "symbol")
(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)