Don't defer compile-time errors in check-expect.

(Nobody seems to remember why this was so.) Fixes #153.
racket · Sep 9, 2024 · d701105 · d701105
1 parent 29e1c78
commit d701105
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/htdp-lib/test-engine/syntax.rkt b/htdp-lib/test-engine/syntax.rkt
@@ -37,7 +37,6 @@
                          (syntax-column stx)
                          (syntax-position stx)
                          (syntax-span stx)))))
-  (define test-expr-checked-for-syntax-error #`(convert-compile-time-error #,test-expr))
   (if (eq? 'module (syntax-local-context))
       #`(define #,bogus-name
           #,(stepper-syntax-property
@@ -49,7 +48,7 @@
                        ['stepper-use-val-as-final #t])
                       (quasisyntax/loc stx
                         (#,checker-proc-stx
-                         (lambda () #,test-expr-checked-for-syntax-error)
+                         (lambda () #,test-expr)
                          #,@embedded-stxes
                          #,src-info)))))
              'stepper-skipto
@@ -65,7 +64,7 @@
                 ['stepper-use-val-as-final #t])
                (quasisyntax/loc stx
                  (#,checker-proc-stx
-                  (lambda () #,test-expr-checked-for-syntax-error)
+                  (lambda () #,test-expr)
                   #,@embedded-stxes
                   #,src-info)))))))