From 6b27c3d54f356b74f3765b54afcaeec210d4c028 Mon Sep 17 00:00:00 2001
From: Rose Hogenson <rhogenson@posteo.net>
Date: Mon, 8 Aug 2022 19:41:15 -0700
Subject: 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.
---
 lib/scheme/base/30-if.csc | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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