X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Ffile-cache.scm;h=4ca9ee056d3b1dd1b5927be28303e4f8b3fdb931;hb=750b714488c5af6eae22d07163bba8b554734ac6;hp=221a6e28379f76670499aef9e40731c653c1c2ee;hpb=08560a1b8076630c4fc6cb9b902614d8b74fd6fc;p=lilypond.git diff --git a/scm/file-cache.scm b/scm/file-cache.scm index 221a6e2837..4ca9ee056d 100644 --- a/scm/file-cache.scm +++ b/scm/file-cache.scm @@ -1,6 +1,6 @@ ;;;; This file is part of LilyPond, the GNU music typesetter. ;;;; -;;;; Copyright (C) 2005--2012 Han-Wen Nienhuys +;;;; Copyright (C) 2005--2015 Han-Wen Nienhuys ;;;; ;;;; LilyPond is free software: you can redistribute it and/or modify ;;;; it under the terms of the GNU General Public License as published by @@ -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))