Treat (srfi) includes as built-in libraries

This commit is contained in:
Justin Ethier 2016-01-03 20:49:47 -05:00
parent f3a78bc15a
commit 9b7e9106f1

View file

@ -126,7 +126,8 @@
file-ext))
(filename
(substring filename* 1 (string-length filename*))))
(if (tagged-list? 'scheme import)
(if (or (tagged-list? 'scheme import)
(tagged-list? 'srfi import))
(string-append (Cyc-installation-dir 'sld) "/" filename) ;; Built-in library
filename)))