From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Tue, 2 Jan 2007 01:32:25 +0000 (+0100)
Subject: Scheme nitpicks.
X-Git-Tag: release/2.11.8-1~50
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=60de860057e75a2857dbc72b1e061c1570baab90;p=lilypond.git

Scheme nitpicks.
---

diff --git a/scm/backend-library.scm b/scm/backend-library.scm
index 42c04b6e57..eaefaf7867 100644
--- a/scm/backend-library.scm
+++ b/scm/backend-library.scm
@@ -120,6 +120,7 @@
   (let* ((completed (completize-formats formats))
 	 (base (string-regexp-substitute "\\.[a-z]+$" "" filename))
 	 (intermediate (remove (lambda (x) (member x formats)) completed)))
+    
     (for-each (lambda (f)
 		((eval (string->symbol (format "convert-to-~a" f))
 		       module) paper-book filename)) completed)
diff --git a/scm/lily.scm b/scm/lily.scm
index d63890af0a..373012008b 100644
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -359,8 +359,7 @@ The syntax is the same as `define*-public'."
 	 (stats (gc-stats)))
 
     (list
-     (- (+ (tms:utime t)
-	   (tms:stime t))
+     (- (tms:utime t)
 	(ly:assoc-get 'gc-time-taken stats))
 
      ;; difficult to put memory amount stats into here.