release: 1.5.43

[lilypond.git] / scm / sketch.scm

diff --git a/scm/sketch.scm b/scm/sketch.scm
index 80c76752e3d9c30e47f35b1532c65dd71fcf98e8..a76f79d5c36c2544181396c1a1cc3b891dcc68b8 100644 (file)
--- a/scm/sketch.scm
+++ b/scm/sketch.scm
@@ -19,6 +19,7 @@
 ;;     elif symbol == 'char':
 ;;         out.write ('moveto( %f %f); char(%d)' % (x,y,rest))
 
+
 ;; (define (dispatch x y expr)
 ;;  (let ((keyword (car expr))) 
 ;;   (cond
@@ -29,10 +30,16 @@
 ;;    ))
 
 
+;; guile < 1.4 compatibility for eval
+(if (or (equal? (minor-version) "4")
+       (equal? (minor-version) "3.4"))
+    (define (ly-eval e m)
+      (eval-in-module e m))
+    (define (ly-eval e m)
+      (eval e m)))
 
-(define-module (scm sketch) )
-;   :export (sketch-output-expression)
-;  :no-backtrace
+(define-module (scm sketch))
+(debug-enable 'backtrace)
 
 (define this-module (current-module))
 
@@ -40,8 +47,7 @@
   (display (dispatch expr) port))
 
 (use-modules
- (guile)
- (guile-user))
+ (guile))
 
 (use-modules (ice-9 format))
 
@@ -228,9 +234,6 @@ layer('Layer 1',1,1,0,0,(0,0,0))
 (define (invoke-char s i)
   "")
 
-(define (invoke-dim1 s d) 
-  (string-append
-   (ly-number->string (* d  (/ 72.27 72))) " " s ))
 
 (define (bezier-sandwich x y l thick)
   (apply