Scheme nitpicks.

diff --git a/scm/backend-library.scm b/scm/backend-library.scm
index 42c04b6e57f573047f922a53a634f5b50a12ce79..eaefaf786752821a525cdfa406a353cbac0e18c9 100644 (file)
--- 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 d63890af0aca443419ab691ce6cc9029997ac2d3..373012008b1b2279cc4c9ce29fa759404b565755 100644 (file)
--- 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.