From 28f05eb7e6d6e24407f6d224a59bf802c282e3e5 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Tue, 25 Oct 2005 19:41:58 +0000
Subject: [PATCH] make the special evaluator work with errortrace

svn: r1158
---
 collects/swindle/html.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/swindle/html.ss b/collects/swindle/html.ss
index 6d25203378..d138de7ee8 100644
--- a/collects/swindle/html.ss
+++ b/collects/swindle/html.ss
@@ -66,7 +66,7 @@
             [(: x . xs) (loop #'xs (cons #'x a))]
             [xs (values (reverse! a) #'xs)])))
       (orig-eval
-       (let loop ([expr (datum->syntax-object #f expr)] [q 0])
+       (let loop ([expr expr] [q 0])
          (syntax-case expr (: _)
            [(_ x _ . r) (string? (syntax-e #'x))
             (let ([strs (map (lambda (s) (datum->syntax-object #'x s))