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/flag.csc | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

(limited to 'csc/flag.csc')

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