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

..

Browse Source 
original commit: 3ffa1eacea030cf9027add932894b9fb90ab70d8
This commit is contained in:
Robby Findler 2003-02-13 13:02:42 +00:00
parent a99bea0a0a
commit c7461e6555
1 changed files with 3 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/mzlib/match.ss
View File

@ -1127,17 +1127,11 @@
(match-mac (lambda (stx)
(syntax-case stx (=>)
((_ exp (pat body) ...)
((_ exp clause ...)
(quasisyntax/loc stx (let ((x exp)) #,(gen-match (syntax x)
'()
(syntax ((pat body) ...))
stx))))
((_ exp (pat (=> fail) body) ...)
(quasisyntax/loc stx (let ((x exp)) #,(gen-match (syntax x)
'()
(syntax ((pat (=> fail) body) ...))
stx)))))))
(syntax (clause ...))
stx)))))))
(match-lambda-mac (lambda (stx)
(syntax-case stx ()
[(k clause ...)