From 6cc93b58f921de2d48d05b536cc23cd83ca674cd Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Sat, 1 Dec 2001 22:01:28 +0100 Subject: [PATCH] patch::: 1.5.24.jcn1 --- VERSION | 2 +- scm/sketch.scm | 16 +++++++++++----- 2 files changed, 12 insertions(+), 6 deletions(-) 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)) -- 2.39.5