patch::: 1.5.1.jcn2

[lilypond.git] / scm / lily.scm

diff --git a/scm/lily.scm b/scm/lily.scm
index a0bfc1dec21bc0188e950e0ab7b5e4657c34790c..b8f28858fe2bb9342ede77af788c90aabf788858 100644 (file)
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -54,7 +54,9 @@
 ;;; Un-assorted stuff
 
 ;; URG guile-1.4/1.4.x compatibility
-(define (ly-eval x) (eval2 x #f))
+(if (not (defined? 'primitive-eval))
+    (define (primitive-eval form)
+      (eval2 form #f)))
 
 (define (sign x)
   (if (= x 0)