From 59b0df38d915275ea2b375380506ec638ca2e832 Mon Sep 17 00:00:00 2001 From: ben Date: Sun, 6 Mar 2016 14:19:08 -0500 Subject: [PATCH] [format] remove in-syntax --- format.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/format.rkt b/format.rkt index f175276..3c32dc5 100644 --- a/format.rkt +++ b/format.rkt @@ -51,8 +51,8 @@ (map syntax->datum (syntax-e #'(arg* ...)))))) ;; 2. If any types left obligations, use `ann` to typecheck the args #:with (arg+* ...) - (for/list ([a (in-syntax #'(arg* ...))] - [t (in-syntax #'fmt.type*)]) + (for/list ([a (in-list (syntax-e #'(arg* ...)))] + [t (in-list (syntax-e #'fmt.type*))]) (if (syntax-e t) (quasisyntax/loc #'f (ann #,a #,t)) a)) (syntax/loc #'f (format 'fmt.expanded arg+* ...))] [f:id