From: Joe Neeman <joeneeman@gmail.com>
Date: Tue, 20 Nov 2007 22:30:29 +0000 (+1100)
Subject: Fix 485.
X-Git-Tag: release/2.11.36-1~65^2~9
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=3b22b865c316093b8cb65a689cc3c66b51ce8834;p=lilypond.git

Fix 485.

Mark lilypond-version as safe.
---

diff --git a/scm/lily.scm b/scm/lily.scm
index 3701011a4f..efa40f338b 100644
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -158,14 +158,6 @@ on errors, and print a stack trace.")
 
 (define-public parser #f)
 
-(define-public (lilypond-version)
-  (string-join
-   (map (lambda (x) (if (symbol? x)
-			(symbol->string x)
-			(number->string x)))
-	(ly:version))
-   "."))
-
 
 ;; TeX C++ code actually hooks into TEX_STRING_HASHLIMIT 
 (define-public TEX_STRING_HASHLIMIT 10000000)
@@ -292,6 +284,14 @@ The syntax is the same as `define*-public'."
                                 safe-objects))
        ,safe-symbol)))
 
+(define-safe-public (lilypond-version)
+  (string-join
+   (map (lambda (x) (if (symbol? x)
+			(symbol->string x)
+			(number->string x)))
+	(ly:version))
+   "."))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; init pitch system