diff options
| author | Rose Hogenson <rhogenson@posteo.net> | 2022-07-28 21:16:42 -0700 |
|---|---|---|
| committer | Rose Hogenson <rhogenson@posteo.net> | 2022-07-28 21:16:42 -0700 |
| commit | 6521edcf224b7e044e9fa42a6f9c92fcf738cb34 (patch) | |
| tree | 96d7c4822070e38339516deb43017093bbf2c930 /csc/compiler.csc | |
| parent | Improve the strings API. (diff) | |
| download | chromatopelma-6521edcf224b7e044e9fa42a6f9c92fcf738cb34.tar.zst | |
Write the CLI frontend.
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 |