release: 1.5.43

[lilypond.git] / scm / sketch.scm

diff --git a/scm/sketch.scm b/scm/sketch.scm
index 76eb7755968c7c59f4b0573f99313465f91434e0..a76f79d5c36c2544181396c1a1cc3b891dcc68b8 100644 (file)
--- a/scm/sketch.scm
+++ b/scm/sketch.scm
@@ -31,8 +31,12 @@
 
 
 ;; guile < 1.4 compatibility for eval
-(define (ly-eval e m)
-  (eval-in-module e m))
+(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))
 (debug-enable 'backtrace)
@@ -230,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