Issue4129/3: Let safe-utility-defs.scm avoid bugs in (ice-9 curried-definitions)

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

diff --git a/scm/safe-utility-defs.scm b/scm/safe-utility-defs.scm
index fa6f2e7d306a5b28e43e4e985bc94360d93fad9d..41abcaf9fbe1c438b683e6b253046d5d3aa78141 100644 (file)
--- a/scm/safe-utility-defs.scm
+++ b/scm/safe-utility-defs.scm
@@ -48,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)))