diff options
| author | Rose Hogenson <rhogenson@posteo.net> | 2022-01-14 21:06:26 -0800 |
|---|---|---|
| committer | Rose Hogenson <rhogenson@posteo.net> | 2022-01-14 21:06:26 -0800 |
| commit | a968e8595b999d5c0a43c59de69bcb4f34e205c1 (patch) | |
| tree | 248ee958532eaaa07ed32c58a8dc3d3709ce9afc /csc/ir1.csc | |
| parent | Rewrite match to use exceptions. (diff) | |
| download | chromatopelma-a968e8595b999d5c0a43c59de69bcb4f34e205c1.tar.zst | |
Write a first draft macro expander.
Committing it because it compiles. I have to write tests and debug
it still.
Diffstat (limited to 'csc/ir1.csc')
| -rw-r--r-- | csc/ir1.csc | 4 |
1 files changed, 2 insertions, 2 deletions
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? |