1 ; empty the library path and populate it with only our own symbols
3 (reset-component-library)
5 (letrec ((parent "../altusmetrum/symbols")
6 (dport (opendir parent))
7 (do-dirs (lambda (parent dport)
8 (let ((fname (readdir dport)))
9 (if (not (eof-object? fname))
11 (if (not (string-prefix? "." fname))
12 (letrec ((subdir (string-append parent "/" fname)))
13 (component-library subdir)
16 (do-dirs parent dport)
23 (do-dirs parent dport)