From 0ddb8fb300b916605baa2552eec3dc77b4e6e154 Mon Sep 17 00:00:00 2001
From: Rose Hogenson <rhogenson@posteo.net>
Date: Fri, 29 Jul 2022 16:42:27 -0700
Subject: Fix some compilation errors in the compiler.

---
 csc/main.csc | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 'csc/main.csc')

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)
 
-- 
cgit v1.3.1