From 3b22b865c316093b8cb65a689cc3c66b51ce8834 Mon Sep 17 00:00:00 2001 From: Joe Neeman Date: Wed, 21 Nov 2007 09:30:29 +1100 Subject: [PATCH] Fix 485. Mark lilypond-version as safe. --- scm/lily.scm | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) 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 -- 2.39.5