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

fixed a bug

Browse Source 
svn: r5485
This commit is contained in:
Robby Findler 2007-01-28 15:25:46 +00:00
parent e14bd3c636
commit 7ab052ebb9
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/private/contract-ds.ss
View File

@ -388,7 +388,7 @@ it around flattened out.
#,(bind-lifts #,(bind-lifts
lifts lifts
#`(let-syntax #,(if (opt/info-recf opt/info) #`(let-syntax #,(if (opt/info-recf opt/info)
(#`[#,(opt/info-recf opt/info) #`([#,(opt/info-recf opt/info)
(lambda (stx) (lambda (stx)
(syntax-case stx () (syntax-case stx ()
[(f val args ((... ...) (... ...))) [(f val args ((... ...) (... ...)))