From 6b865ae3662587644cd39adc756bcee3398e3e5f Mon Sep 17 00:00:00 2001
From: janneke <janneke>
Date: Mon, 7 Mar 2005 20:19:58 +0000
Subject: [PATCH] * lily/SConscript: * SConstruct: Update.

---
 SConstruct           |  6 +++---
 scm/lily-library.scm | 11 ++++++-----
 2 files changed, 9 insertions(+), 8 deletions(-)

diff --git a/SConstruct b/SConstruct
index 56e6785f45..48250ccb16 100644
--- a/SConstruct
+++ b/SConstruct
@@ -202,10 +202,10 @@ env.Alias ('config', config_cache)
 
 cachedir = os.path.join (outdir, 'build-cache')
 
-if not os.path.exists(cachedir):
-	os.makedirs(cachedir)
+if not os.path.exists (cachedir):
+	os.makedirs (cachedir)
 
-CacheDir (os.path.join (outdir, 'build-cache'))
+CacheDir (cachedir)
 
 # No need to set $LILYPONDPREFIX to run lily, but cannot install...
 if env['debugging'] and not 'install' in COMMAND_LINE_TARGETS:
diff --git a/scm/lily-library.scm b/scm/lily-library.scm
index 277d0f7a7c..39a9ab693b 100644
--- a/scm/lily-library.scm
+++ b/scm/lily-library.scm
@@ -43,7 +43,7 @@
 
 ;; parser stuff.
 (define-public (print-music-as-book parser music)
-  (let* ((head  (ly:parser-lookup parser '$globalheader))
+  (let* ((head (ly:parser-lookup parser '$globalheader))
 	 (book (ly:make-book (ly:parser-lookup parser $defaultpaper)
 			     head score)))
     (ly:parser-print-book parser book)))
@@ -55,15 +55,16 @@
     (ly:parser-print-book parser book)))
 
 (define-public (print-score parser score)
-  (let* ((head  (ly:parser-lookup parser '$globalheader))
+  (let* ((head (ly:parser-lookup parser '$globalheader))
 	 (book (ly:make-book (ly:parser-lookup parser $defaultpaper)
 			     head score)))
     (ly:parser-print-score parser book)))
 		
 (define-public (collect-scores-for-book  parser score)
-  (let* ((oldval (ly:parser-lookup parser 'toplevel-scores)))
-    (ly:parser-define parser 'toplevel-scores (cons score oldval))))
-
+  (ly:parser-define
+   parser 'toplevel-scores
+   (cons score (ly:parser-lookup parser 'toplevel-scores))))
+    
 (define-public (collect-music-for-book parser music)
   (collect-scores-for-book parser (ly:music-scorify music parser)))
 
-- 
2.39.2