From e45f0c8cc1b4840da2c68ad72d6a4aaef48b8e44 Mon Sep 17 00:00:00 2001
From: David Kastrup <dak@gnu.org>
Date: Thu, 5 Jun 2014 20:14:40 +0200
Subject: [PATCH] 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.
---
 scm/safe-utility-defs.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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)))
-- 
2.39.5