Imported Upstream version 2.18.0

[lilypond.git] / scm / file-cache.scm

diff --git a/scm/file-cache.scm b/scm/file-cache.scm
index 221a6e28379f76670499aef9e40731c653c1c2ee..21db866eb83f15a4153f603270319cdadfbecc0a 100644 (file)
--- a/scm/file-cache.scm
+++ b/scm/file-cache.scm
@@ -22,7 +22,7 @@
       ((contents (hash-ref cache-hash-tab filename #f)))
 
     (if (not (string? contents))
-       (begin
-         (set! contents (ly:gulp-file filename))
-         (hash-set! cache-hash-tab filename contents)))
+        (begin
+          (set! contents (ly:gulp-file filename))
+          (hash-set! cache-hash-tab filename contents)))
     contents))