Fix some compilation errors in the compiler.

1 files changed, 9 insertions, 3 deletions

diff --git a/csc/flag.csc b/csc/flag.csc
index ea699db..c328dcf 100644
--- a/csc/flag.csc
+++ b/csc/flag.csc
@@ -9,16 +9,22 @@
     parse-error?
     parse-flags)
   (import (scheme base)
+          (only (scheme process-context)
+            command-line)
           (only (csc hash-map)
             compare-strings
+            insert
             key-not-found-error?
             lookup
             make-map)
           (only (csc loop)
             loop)
+          (only (csc match)
+            match)
           (only (csc strings)
-            prefix?
-            contains?))
+            contains?
+            has-prefix?
+            split))
   (begin
 
 
@@ -94,7 +100,7 @@
                   (set! value (car args))
                   (set! args (cdr args)))
                 (unless value
-                  (raise (make-parse-flag "flag needs an argument" s)))
+                  (raise (make-parse-error "flag needs an argument" s)))
                 (parser value)))
             #t)))
       (loop while (parse-one))