diff options
| author | Rose Hogenson <rhogenson@posteo.net> | 2022-07-29 16:42:27 -0700 |
|---|---|---|
| committer | Rose Hogenson <rhogenson@posteo.net> | 2022-07-29 16:42:27 -0700 |
| commit | 0ddb8fb300b916605baa2552eec3dc77b4e6e154 (patch) | |
| tree | a4c9bf70efcf8a950f2e85ecb22b9094e791ca63 /csc/main.csc | |
| parent | Write the CLI frontend. (diff) | |
| download | chromatopelma-0ddb8fb300b916605baa2552eec3dc77b4e6e154.tar.zst | |
Fix some compilation errors in the compiler.
Diffstat (limited to 'csc/main.csc')
| -rw-r--r-- | csc/main.csc | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/csc/main.csc b/csc/main.csc index a67a511..1e2cde1 100644 --- a/csc/main.csc +++ b/csc/main.csc @@ -2,8 +2,8 @@ (only (scheme read) read) (only (csc compiler) - *library-search-dirs*) - compile + *library-search-dirs* + compile) (only (csc flag) *args* bool-flag @@ -15,10 +15,12 @@ (only (csc format) printf) (only (csc loop) - loop)) + loop) + (only (csc match) + match)) -(define-flag *include* "include" (lambda (s) (cons s include)) '()) +(define-flag *include* "include" (lambda (s) (cons s *include*)) '()) (define-flag *output* "output" string-copy "") (define-flag *help* "help" bool-flag #f) |