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

[private] map: allow compound/constructor types

Browse Source
This commit is contained in:
Ben Greenman 2016-06-12 15:06:49 -04:00
parent 945938aee9
commit 6f2089c29d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
trivial/private/function.rkt
View File

@ -88,7 +88,7 @@
#:with (e+* ...)
(for/list ([t (in-list (syntax-e #'p.evidence))]
[e (in-list (syntax-e #'(e* ...)))])
(quasisyntax/loc stx (ann #,e (Listof-stx #,(format-id stx "~a" (syntax-e t))))))
(quasisyntax/loc stx (ann #,e (Listof-stx #,(datum->syntax stx (syntax-e t))))))
(syntax/loc stx (map p.expanded e+* ...))]
[_ #f]))))