* flower/include/std-vector.hh
[lilypond/patrick.git] / scm / file-cache.scm
blob3868c40dd5d9d7151c16f472eccddd1b2d32a789
1 ;;;; file-cache.scm --
2 ;;;;
3 ;;;;  source file of the GNU LilyPond music typesetter
4 ;;;;
5 ;;;; (c) 2005--2006 Han-Wen Nienhuys <hanwen@cs.uu.nl>
8 (define cache-hash-tab  (make-hash-table 11))
9 (define-public (cached-file-contents filename)
10   (let*
11       ((contents (hash-ref cache-hash-tab filename #f)))
13     (if (not (string? contents))
14         (begin
15           (set! contents (ly:gulp-file filename))
16           (hash-set! cache-hash-tab filename contents)))
17     contents))