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

[format] remove in-syntax

Browse Source
This commit is contained in:
ben 2016-03-06 14:19:08 -05:00
parent e545d37ea7
commit 59b0df38d9
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
format.rkt
View File

@ -51,8 +51,8 @@
(map syntax->datum (syntax-e #'(arg* ...)))))) (map syntax->datum (syntax-e #'(arg* ...))))))
;; 2. If any types left obligations, use `ann` to typecheck the args ;; 2. If any types left obligations, use `ann` to typecheck the args
#:with (arg+* ...) #:with (arg+* ...)
(for/list ([a (in-syntax #'(arg* ...))] (for/list ([a (in-list (syntax-e #'(arg* ...)))]
[t (in-syntax #'fmt.type*)]) [t (in-list (syntax-e #'fmt.type*))])
(if (syntax-e t) (quasisyntax/loc #'f (ann #,a #,t)) a)) (if (syntax-e t) (quasisyntax/loc #'f (ann #,a #,t)) a))
(syntax/loc #'f (format 'fmt.expanded arg+* ...))] (syntax/loc #'f (format 'fmt.expanded arg+* ...))]
[f:id [f:id