From bc97da390d7c8faa1adc07b97759eb7ebe668072 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 18 Jul 2006 18:55:18 +0000 Subject: [PATCH] made case-lambda work with the magic [ thing and fixed up some test suites svn: r3754 original commit: daf17eb61630c33e6e4443c0484d1775b259a754 --- collects/framework/private/scheme.ss | 2 +- collects/tests/framework/keys.ss | 1 + 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/framework/private/scheme.ss b/collects/framework/private/scheme.ss index 243c8134..53d25eb1 100644 --- a/collects/framework/private/scheme.ss +++ b/collects/framework/private/scheme.ss @@ -1266,7 +1266,7 @@ (ormap (λ (x) (text-between-equal? x text backward-match before-whitespace-pos)) - '("cond" "field" "provide/contract"))) + '("case-lambda" "cond" "field" "provide/contract"))) (change-to 2 #\())]))] [(not (zero? before-whitespace-pos)) ;; this is the first thing in the sequence diff --git a/collects/tests/framework/keys.ss b/collects/tests/framework/keys.ss index e53e5580..04df918b 100644 --- a/collects/tests/framework/keys.ss +++ b/collects/tests/framework/keys.ss @@ -122,6 +122,7 @@ (build-open-bracket-spec "(provide/contract " 18 #\[) (build-open-bracket-spec "(kond " 5 #\() (build-open-bracket-spec "(cond " 5 #\[) + (build-open-bracket-spec "(case-lambda " 13 #\[) (build-open-bracket-spec "(let ([]" 8 #\[) (build-open-bracket-spec "(let ({}" 8 #\{) (build-open-bracket-spec "()" 2 #\()