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

.

Browse Source 
original commit: 2e13eb38115c0a8fdfaea47b18ba5f0b84dfc1ec
This commit is contained in:
Eli Barzilay 2004-09-01 11:41:06 +00:00
parent 23c05ab266
commit ff365851cc
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mzlib/foreign.ss
View File

@ -163,7 +163,7 @@
(reverse! r)
(let ([x (f (car l))]) (loop (cdr l) (if x (cons x r) r))))))
(define id=? module-or-top-identifier=?)
(syntax-case* stx (->) id=?
(syntax-case stx ()
[(_ x ...)
(let ([xs (map (lambda (x)
(syntax-case* x (-> ::) id=? [:: '::] [-> '->] [_ x]))