From 03f3ee3e815aa79971b42bd85a2f77daed10e49f Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Tue, 29 Apr 2008 03:53:51 +0000 Subject: [PATCH] Provide match-lambda** svn: r9532 --- collects/scheme/match/define-forms.ss | 4 ++-- collects/scheme/match/legacy-match.ss | 2 +- collects/scheme/match/match.ss | 2 +- 3 files changed, 4 insertions(+), 4 deletions(-) diff --git a/collects/scheme/match/define-forms.ss b/collects/scheme/match/define-forms.ss index 1d899b17aa..44ecec966f 100644 --- a/collects/scheme/match/define-forms.ss +++ b/collects/scheme/match/define-forms.ss @@ -9,11 +9,11 @@ (provide define-forms) (define-syntax-rule (define-forms parse-id - match match* match-lambda match-lambda* match-let + match match* match-lambda match-lambda* match-lambda** match-let match-let* match-define match-letrec) (... (begin - (provide match match* match-lambda match-lambda* match-let match-let* + (provide match match* match-lambda match-lambda* match-lambda** match-let match-let* match-define match-letrec) (define-syntax (match* stx) (syntax-case stx () diff --git a/collects/scheme/match/legacy-match.ss b/collects/scheme/match/legacy-match.ss index f799de544d..cbd9540797 100644 --- a/collects/scheme/match/legacy-match.ss +++ b/collects/scheme/match/legacy-match.ss @@ -18,5 +18,5 @@ exn:misc:match?) (define-forms parse/legacy/cert - match match* match-lambda match-lambda* match-let match-let* + match match* match-lambda match-lambda* match-lambda** match-let match-let* match-define match-letrec) diff --git a/collects/scheme/match/match.ss b/collects/scheme/match/match.ss index dd57c96674..9e050a6bb3 100644 --- a/collects/scheme/match/match.ss +++ b/collects/scheme/match/match.ss @@ -18,5 +18,5 @@ exn:misc:match?) (define-forms parse/cert - match match* match-lambda match-lambda* match-let match-let* + match match* match-lambda match-lambda* match-lambda** match-let match-let* match-define match-letrec)