From 8aa16354d9afce67c6c8710f4ab7287b93efe5c1 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Sun, 28 Jul 2002 20:02:38 +0000
Subject: [PATCH] ..

original commit: 1cb98e2e08a969ac407c0de7ba3630c8e1e733b6
---
 collects/framework/private/main.ss | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/collects/framework/private/main.ss b/collects/framework/private/main.ss
index bbc62b81..592a4d3b 100644
--- 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