From dbf0f9bd8865fd598277b579ce217d3bc1981257 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Tue, 20 Oct 2009 21:29:00 +0000 Subject: [PATCH] PR10532 svn: r16390 --- collects/web-server/formlets/syntax.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/web-server/formlets/syntax.ss b/collects/web-server/formlets/syntax.ss index 9a7ad2912a..c586052d86 100644 --- a/collects/web-server/formlets/syntax.ss +++ b/collects/web-server/formlets/syntax.ss @@ -34,11 +34,11 @@ #,@(map circ-of (syntax->list #'(n ...))))))] [(t ([k v] ...) n ...) (quasisyntax/loc stx - (tag-xexpr 't '([k v] ...) + (tag-xexpr `t `([k v] ...) #,(circ-of (syntax/loc stx (#%# n ...)))))] [(t n ...) (quasisyntax/loc stx - (tag-xexpr 't empty + (tag-xexpr `t empty #,(circ-of (syntax/loc stx (#%# n ...)))))])) (define-syntax (formlet stx)