Doc: Usage 1.2 - Added note about using wildcards

[lilypond.git] / scm / safe-utility-defs.scm

diff --git a/scm/safe-utility-defs.scm b/scm/safe-utility-defs.scm
index 0c699fbbbc1a92f8530940e4604af73725760bf8..41abcaf9fbe1c438b683e6b253046d5d3aa78141 100644 (file)
--- a/scm/safe-utility-defs.scm
+++ b/scm/safe-utility-defs.scm
@@ -26,6 +26,10 @@
   #:export-syntax (define-safe-public)
   #:re-export-syntax (define*-public))
 
+(if (string>? (version) "1.9.10")
+    (use-modules (ice-9 curried-definitions)))
+
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Safe definitions utility
 
@@ -44,8 +48,9 @@ LilyPond safe mode.  The syntax is the same as `define*-public'."
 
   (let ((safe-symbol (get-symbol arglist)))
     `(begin
-       (define*-public ,arglist
+       (define* ,arglist
          ,@body)
        (set! safe-objects (cons (cons ',safe-symbol ,safe-symbol)
                                 safe-objects))
+       (export ,safe-symbol)
        ,safe-symbol)))