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

..

Browse Source 
original commit: b96c2a6800e291e6edcefad83ea981fe681e42c1
This commit is contained in:
Robby Findler 2004-01-05 08:40:44 +00:00
parent 26c2d754fd
commit 9213b2bfa7
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/mzlib/plt-match.ss
View File

@ -225,7 +225,8 @@
((_ exp clause ...) ((_ exp clause ...)
(quasisyntax/loc (quasisyntax/loc
stx stx
(let ((x exp)) #,(gen-match (syntax x) (let ((x exp))
#,(gen-match (syntax x)
'() '()
(syntax (clause ...)) (syntax (clause ...))
stx))))))) stx)))))))