;;;; This file is part of LilyPond, the GNU music typesetter.
;;;;
-;;;; Copyright (C) 1998--2014 Jan Nieuwenhuizen <janneke@gnu.org>
+;;;; Copyright (C) 1998--2015 Jan Nieuwenhuizen <janneke@gnu.org>
;;;; Han-Wen Nienhuys <hanwen@xs4all.nl>
;;;;
;;;; LilyPond is free software: you can redistribute it and/or modify
#: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
(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)))