From 4797173e58c5707fe7e547b398897333398ceeef Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Fri, 8 Feb 2013 12:30:31 -0500 Subject: [PATCH] Properly unquote in error message. Fixes PR 13505. --- collects/2htdp/private/img-err.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/2htdp/private/img-err.rkt b/collects/2htdp/private/img-err.rkt index e27f979c74..c11c77af2e 100644 --- a/collects/2htdp/private/img-err.rkt +++ b/collects/2htdp/private/img-err.rkt @@ -56,7 +56,7 @@ [final-arg (for/list ([x (in-list final-arg)] [j (in-naturals #,(+ len 1))]) - (check/normalize 'fn-name 'final-arg x j))]) + (check/normalize '#,fn-name 'final-arg x j))]) #,@bodies))))] [(args ...) (with-syntax ([(i ...) (build-list (length (syntax->list #'(args ...))) add1)]