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

preserve lexical context, src, etc for sequence syntax expansion

Browse Source 
The previous version of the code replaced the implicit #%app with
the kernel #%app (ie, #%plain-app), causing sequence functions
that take keyword arguments to fail.
This commit is contained in:
Ryan Culpepper 2013-02-06 17:55:04 -05:00
parent 117c81e2a6
commit a85a71984d
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/racket/private/for.rkt
View File

@ -118,7 +118,8 @@
(if (identifier? stx) (if (identifier? stx)
(proc1) (proc1)
(datum->syntax stx (datum->syntax stx
#`(#,(proc1) . #,(cdr (syntax-e stx))) ;; Use cons, not #`(#,op #,@args), to avoid replacing implicit #%app binding
(cons (proc1) (cdr (syntax-e stx)))
stx stx
stx))) stx)))
proc1) proc1)