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

[function] add fall-through case for map

Browse Source
This commit is contained in:
Ben Greenman 2016-06-09 02:03:49 -04:00
parent 7cd78a842b
commit e2d6d365f6
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
trivial/private/function.rkt
View File

@ -89,5 +89,6 @@
(for/list ([t (in-list (syntax-e #'p.evidence))] (for/list ([t (in-list (syntax-e #'p.evidence))]
[e (in-list (syntax-e #'(e* ...)))]) [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 #,(format-id stx "~a" (syntax-e t))))))
(syntax/loc stx (map p.expanded e+* ...))])))) (syntax/loc stx (map p.expanded e+* ...))]
[_ #f]))))

3
trivial/untyped/function.rkt
View File

@ -85,5 +85,6 @@
#:with (e+* ...) #:with (e+* ...)
(for/list ([e (in-list (syntax-e #'(e* ...)))]) (for/list ([e (in-list (syntax-e #'(e* ...)))])
(quasisyntax/loc stx #,e)) (quasisyntax/loc stx #,e))
(syntax/loc stx (map p.expanded e+* ...))])))) (syntax/loc stx (map p.expanded e+* ...))]
[_ #f]))))