X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fsafe-lily.scm;h=b47f9d42601d60080bec6cb849374dfe89177faf;hb=c76d27c59244a331a2873a40e0d7e40ad378d4b8;hp=a98baf5f5340c84efa953bba25e8b6a8ad8e8534;hpb=d5fce41ff513cba5e4775ebbdfe888dd13464b80;p=lilypond.git

diff --git a/scm/safe-lily.scm b/scm/safe-lily.scm
index a98baf5f53..b47f9d4260 100644
--- a/scm/safe-lily.scm
+++ b/scm/safe-lily.scm
@@ -1,11 +1,18 @@
+;;;; safe-lily.scm -- 
+;;;;
+;;;; source file of the GNU LilyPond music typesetter
+;;;; 
+;;;; (c)  2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+
 (define safe-objects
-  
   (map
    (lambda (sym)
-     (cons sym (primitive-eval sym))) 
+     (cons sym (primitive-eval sym)))
    '(ly:add-interface
      ly:add-moment
      ly:all-grob-interfaces
+     ly:all-output-backend-commands
+     ly:all-stencil-expressions
      ly:bracket
      ly:context-find
      ly:context-id
@@ -82,24 +89,21 @@
      ly:music-set-property!
      ly:music-transpose
      ly:music?
-     ly:my-lily-parser?
+     ly:lily-parser?
      ly:number->string
      ly:option-usage
      ly:output-def-clone
      ly:output-def-scope
      ly:output-description
-     ly:page-header-lines-footer-stencil
-     ly:page-paper-lines
-     ly:page?
      ly:paper-book?
      ly:paper-def?
      ly:paper-get-font
      ly:paper-get-number
-     ly:paper-line-break-penalty
-     ly:paper-line-extent
-     ly:paper-line-number
-     ly:paper-line-stencil
-     ly:paper-line?
+     ly:paper-system-break-penalty
+     ly:paper-system-extent
+     ly:paper-system-number
+     ly:paper-system-stencil
+     ly:paper-system?
      ly:output-def-lookup
      ly:parse-string
      ly:parser-parse-string
@@ -115,11 +119,9 @@
      ly:pitch-transpose
      ly:pitch<?
      ly:pitch?
-     ly:ragged-page-breaks
      ly:round-filled-box
      ly:run-translator
      ly:set-option
-     ly:score-bookify
      ly:set-point-and-click
      ly:spanner-broken-into
      ly:spanner-get-bound
@@ -144,14 +146,14 @@
      ly:warn
 
      ;; need these for parsing init files:
-     ;; todo: should have a macro define-safe-public 
-     DOUBLE-FLAT 
-     THREE-Q-FLAT 
-     FLAT 
-     SEMI-FLAT 
-     NATURAL 
-     SEMI-SHARP 
-     SHARP 
+     ;; todo: should have a macro define-safe-public
+     DOUBLE-FLAT
+     THREE-Q-FLAT
+     FLAT
+     SEMI-FLAT
+     NATURAL
+     SEMI-SHARP
+     SHARP
      THREE-Q-SHARP
      DOUBLE-SHARP
      SEMI-TONE
@@ -174,9 +176,6 @@
      make-voice-props-set
      chord-name->german-markup
      note-name->german-markup
-     default-toplevel-music-handler
-     default-toplevel-book-handler
-     default-toplevel-score-handler
 
      Accidental_interface::after_line_breaking
      Accidental_interface::print
@@ -278,17 +277,9 @@
      Vaticana_ligature::brew_ligature_primitive
      Vaticana_ligature::print
      Volta_bracket_interface::print
-
-
-
-     
      )))
 
 (define-public (make-safe-lilypond-module)
-  (let*
-      ((m (make-safe-module)))
-    (for-each
-     (lambda (p) (module-define! m (car p) (cdr p)))
-     safe-objects)
+  (let* ((m (make-safe-module)))
+    (for-each (lambda (p) (module-define! m (car p) (cdr p))) safe-objects)
     m))
-