From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Sat, 1 Dec 2001 21:01:28 +0000 (+0100)
Subject: patch::: 1.5.24.jcn1
X-Git-Tag: release/1.5.25~3
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=6cc93b58f921de2d48d05b536cc23cd83ca674cd;p=lilypond.git

patch::: 1.5.24.jcn1
---

diff --git a/VERSION b/VERSION
index cb07dab4b8..376d694c28 100644
--- a/VERSION
+++ b/VERSION
@@ -2,7 +2,7 @@ PACKAGE_NAME=LilyPond
 MAJOR_VERSION=1
 MINOR_VERSION=5
 PATCH_LEVEL=24
-MY_PATCH_LEVEL=
+MY_PATCH_LEVEL=jcn1
 
 # use the above to send patches: MY_PATCH_LEVEL is always empty for a
 # released version.
diff --git a/scm/sketch.scm b/scm/sketch.scm
index 80c76752e3..30ec4a4ce0 100644
--- 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))