diff options
Diffstat (limited to 'csc/compiler.csc')
| -rw-r--r-- | csc/compiler.csc | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/csc/compiler.csc b/csc/compiler.csc index 728b8c5..6bdf1ba 100644 --- a/csc/compiler.csc +++ b/csc/compiler.csc @@ -1,6 +1,6 @@ (define-library (csc compiler) (export - *library-search-dir* + *library-search-dirs* compile) (import (scheme base) (only (scheme file) @@ -63,13 +63,11 @@ (else 1))))) - (define *library-search-dir* #f) + (define *library-search-dirs* '()) (define (find-library name) - (define library-roots (list *standard-library-dir*)) - (when *library-search-dir* - (set! library-roots (cons *library-search-dir* library-roots))) + (define library-roots (cons *standard-library-dir* *library-search-dirs*)) (loop for dir in library-roots for file-path = (loop for part in name collect (symbol->string part) into path |