Add '-dcrop' option to ps and svg backends

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

diff --git a/scm/safe-utility-defs.scm b/scm/safe-utility-defs.scm
index 57941b2b9ab5ec3b2b77e1a96282736ea6c90642..9591edb4f55ba43820447c7c5f3f4d37372227d3 100644 (file)
--- a/scm/safe-utility-defs.scm
+++ b/scm/safe-utility-defs.scm
@@ -1,6 +1,6 @@
 ;;;; This file is part of LilyPond, the GNU music typesetter.
 ;;;;
-;;;; Copyright (C) 1998--2012 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
@@ -19,12 +19,16 @@
 ;;;      Author Ian Hulin
 ;;;      Date   16 October 2011
 ;;;
- 
+
 (define-module (scm safe-utility-defs)
-#:use-module (ice-9 optargs)
-#:export (safe-objects)
-#:export-syntax (define-safe-public)
-#:re-export-syntax (define*-public))
+  #:use-module (ice-9 optargs)
+  #:export (safe-objects)
+  #: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)))