3 ;;;; source file of the GNU LilyPond music typesetter
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)
11 ((contents (hash-ref cache-hash-tab filename #f)))
13 (if (not (string? contents))
15 (set! contents (ly:gulp-file filename))
16 (hash-set! cache-hash-tab filename contents)))