From 60de860057e75a2857dbc72b1e061c1570baab90 Mon Sep 17 00:00:00 2001
From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Tue, 2 Jan 2007 02:32:25 +0100
Subject: [PATCH] Scheme nitpicks.

---
 scm/backend-library.scm | 1 +
 scm/lily.scm            | 3 +--
 2 files changed, 2 insertions(+), 2 deletions(-)

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.
-- 
2.39.2