From: David Kastrup <dak@gnu.org>
Date: Thu, 5 Jun 2014 18:14:40 +0000 (+0200)
Subject: Issue4129/3: Let safe-utility-defs.scm avoid bugs in (ice-9 curried-definitions)
X-Git-Tag: release/2.19.15-1~7
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=e45f0c8cc1b4840da2c68ad72d6a4aaef48b8e44;p=lilypond.git

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

The exporting definitions in the GUILEv2 module
(ice-9 curried-definitions) were buggy until quite recently.
---

diff --git a/scm/safe-utility-defs.scm b/scm/safe-utility-defs.scm
index fa6f2e7d30..41abcaf9fb 100644
--- 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)))