Properly unquote in error message.

Fixes PR 13505.
2013-02-08 12:30:31 -05:00 · 2013-02-08 12:30:31 -05:00 · 4797173e58
commit 4797173e58
parent 469a69772c
1 changed files with 1 additions and 1 deletions
--- 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)]