* lily/context-def.cc (filter_performers): don't go to cdrloc if

[lilypond.git] / scm / lily.scm

diff --git a/scm/lily.scm b/scm/lily.scm
index bf2ed056b48bbe66999dc372dd8593770894160c..186e92ade1be9e3c04afeb4b7808d4d3c13c90cb 100644 (file)
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -95,10 +95,6 @@
 
 (define-public default-script-alist '())
 
-(define-public safe-mode? #f)
-
-
-
 
 ;; parser stuff.
 (define-public (print-music-as-book parser music)
@@ -107,7 +103,10 @@
     (ly:parser-print-book parser book)))
 
 (define-public (print-score-as-book parser score)
-  (let ((book (ly:score-bookify score)))
+  (let
+      ((book (ly:score-bookify score))
+       )
+    
     (ly:parser-print-book parser book)))
 
 (define-public (print-score parser score)
@@ -123,6 +122,15 @@
 ;;; Unassorted utility functions.
 
 
+;; modules
+(define-public (ly:modules-lookup modules sym)
+  "DOCME."
+  (let ((v (module-variable (car modules) sym)))
+    (if (and v (variable-bound? v) (variable-ref v))
+       (variable-ref v)
+       (if (module? (cdr modules)) (ly:modules-lookup (cdr modules) sym)))))
+
+
 ;;;;;;;;;;;;;;;;
 ; alist
 (define-public (assoc-get key alist . default)
@@ -456,6 +464,7 @@ L1 is copied, L2 not.
        "font.scm"
        "encoding.scm"
        
+       "fret-diagrams.scm"
        "define-markup-commands.scm"
        "define-grob-properties.scm"
        "define-grobs.scm"