From 6521edcf224b7e044e9fa42a6f9c92fcf738cb34 Mon Sep 17 00:00:00 2001 From: Rose Hogenson Date: Thu, 28 Jul 2022 21:16:42 -0700 Subject: Write the CLI frontend. --- csc/compiler.csc | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) (limited to 'csc/compiler.csc') 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 -- cgit v1.3.1