From a968e8595b999d5c0a43c59de69bcb4f34e205c1 Mon Sep 17 00:00:00 2001
From: Rose Hogenson <rhogenson@posteo.net>
Date: Fri, 14 Jan 2022 21:06:26 -0800
Subject: Write a first draft macro expander.

Committing it because it compiles. I have to write tests and debug
it still.
---
 csc/ir1.csc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'csc/ir1.csc')

diff --git a/csc/ir1.csc b/csc/ir1.csc
index 53dacc1..1365891 100644
--- a/csc/ir1.csc
+++ b/csc/ir1.csc
@@ -186,8 +186,8 @@
     ; body is the name of the clause. If the procedure is called with an
     ; appropriate number of arguments, body is evaluated in tail position.
     ; Otherwise if there is an alternate, it should be a <lambda-case>
-    ; expression, representing the next clause to try. If there is no
-    ; alternate, an error is signaled.
+    ; expression, representing the next clause to try. If alternate is nil, an
+    ; error is signaled.
     (define-record-type <lambda-case>
       (make-lambda-case arguments rest gensyms body alternate)
       lambda-case?
-- 
cgit v1.3.1