suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Provide match-lambda**

Browse Source 
svn: r9532
This commit is contained in:
Sam Tobin-Hochstadt 2008-04-29 03:53:51 +00:00
parent 6c1e70af8e
commit 03f3ee3e81
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/scheme/match/define-forms.ss
View File

@ -9,11 +9,11 @@
(provide define-forms) (provide define-forms)
(define-syntax-rule (define-forms parse-id (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) match-let* match-define match-letrec)
(... (...
(begin (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) match-define match-letrec)
(define-syntax (match* stx) (define-syntax (match* stx)
(syntax-case stx () (syntax-case stx ()

2
collects/scheme/match/legacy-match.ss
View File

@ -18,5 +18,5 @@
exn:misc:match?) exn:misc:match?)
(define-forms parse/legacy/cert (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) match-define match-letrec)

2
collects/scheme/match/match.ss
View File

@ -18,5 +18,5 @@
exn:misc:match?) exn:misc:match?)
(define-forms parse/cert (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) match-define match-letrec)