..

original commit: 1cb98e2e08a969ac407c0de7ba3630c8e1e733b6
2002-07-28 20:02:38 +00:00 · 2002-07-28 20:02:38 +00:00 · 8aa16354d9
commit 8aa16354d9
parent 07f4c5dca1
1 changed files with 4 additions and 2 deletions
--- a/collects/framework/private/main.ss
+++ b/collects/framework/private/main.ss
@ -74,7 +74,9 @@
                     define-schema))
 	(for-each (lambda (x) 
 		    (hash-table-put! hash-table x 'begin))
-		  '(cond case-lambda
+		  '(case-lambda
+		    cond
+		    match-lambda match-lambda*
 		    begin begin0 delay
 		    unit compound-unit compound-unit/sig
 		    public private override
@ -88,7 +90,7 @@
                     with-syntax
 		     with-continuation-mark
                     module
-                     match match-lambda match-lambda* match-let match-let* match-letrec
+		     match match-let match-let* match-letrec
                     let/cc let/ec letcc catch
                     let-syntax letrec-syntax 
                     syntax-case syntax-case* syntax-rules