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

fixed a bug -- used to duplicate subexpressions

Browse Source 
svn: r4814
This commit is contained in:
Robby Findler 2006-11-09 22:42:14 +00:00
parent dfafe3c2c1
commit 83e09ada4c
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/etc.ss
View File

@ -248,7 +248,7 @@
[(rec id expr) [(rec id expr)
(identifier? #'id) (identifier? #'id)
#`(letrec ((id expr)) #`(letrec ((id expr))
#,(syntax-property #'expr 'inferred-name (syntax-e #'id)))] #,(syntax-property #'id 'inferred-name (syntax-e #'id)))]
[(rec (name id ...) body ...) [(rec (name id ...) body ...)
(andmap identifier? (syntax->list #'(name id ...))) (andmap identifier? (syntax->list #'(name id ...)))
#`(letrec ((name (lambda (id ...) body ...))) #`(letrec ((name (lambda (id ...) body ...)))