diff options
| author | Rose Hogenson <rhogenson@posteo.net> | 2022-08-08 19:41:15 -0700 |
|---|---|---|
| committer | Rose Hogenson <rhogenson@posteo.net> | 2022-08-08 19:41:15 -0700 |
| commit | 6b27c3d54f356b74f3765b54afcaeec210d4c028 (patch) | |
| tree | c788801f27ccdd1da8b4548060a78c948e4886be | |
| parent | b81426bb210ea5fca6d841e4dfeb38d83e1a6554 (diff) | |
| download | chromatopelma-6b27c3d54f356b74f3765b54afcaeec210d4c028.tar.zst | |
Unexport case-lambda.
case-lambda is actually defined in the (scheme case-lambda) library, but
it's too convenient so I'm just going to define two copies.
| -rw-r--r-- | lib/scheme/base/30-if.csc | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/scheme/base/30-if.csc b/lib/scheme/base/30-if.csc index 36edc16..6b3519e 100644 --- a/lib/scheme/base/30-if.csc +++ b/lib/scheme/base/30-if.csc @@ -2,7 +2,6 @@ and boolean=? boolean? - case-lambda cond if not @@ -81,6 +80,8 @@ (begin result1 result2 ...))))) + ; This is a secret copy of case-lambda. + ; The real one is defined in the (scheme case-lambda) library. (define-syntax case-lambda (syntax-rules () ((case-lambda (params body0 ...) ...) |