errortrace: remove redundant expansion

2012-11-30 06:18:43 -07:00 · 2012-11-30 06:18:43 -07:00 · b1fe666498
commit b1fe666498
parent 540bab88e1
1 changed files with 1 additions and 1 deletions
--- a/collects/errortrace/errortrace-lib.rkt
+++ b/collects/errortrace/errortrace-lib.rkt
@ -443,7 +443,7 @@
                               (namespace-base-phase)))
       (if (eq? (syntax-e #'name) 'errortrace-key)
           top-e
-           (let ([top-e (normal (expand-syntax top-e))])
+           (let ([top-e (normal top-e)])
             (initialize-test-coverage)
             (add-test-coverage-init-code
              (transform-all-modules