suzanne.soy/compatibility
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

original commit: 83e09ada4cb509b86db844e814fa7aec26179883
This commit is contained in:
Robby Findler 2006-11-09 22:42:14 +00:00
parent 6cc7b55070
commit b7ef3051ca
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)
(identifier? #'id)
#`(letrec ((id expr))
#,(syntax-property #'expr 'inferred-name (syntax-e #'id)))]
#,(syntax-property #'id 'inferred-name (syntax-e #'id)))]
[(rec (name id ...) body ...)
(andmap identifier? (syntax->list #'(name id ...)))
#`(letrec ((name (lambda (id ...) body ...)))