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

This reverts commit d701105, because it breaks the "htdp-test" build.
racket · Sep 10, 2024 · f0e425c · f0e425c
1 parent a6c3096
commit f0e425c
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/htdp-lib/test-engine/syntax.rkt b/htdp-lib/test-engine/syntax.rkt
@@ -37,6 +37,7 @@
                          (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
@@ -48,7 +49,7 @@
                        ['stepper-use-val-as-final #t])
                       (quasisyntax/loc stx
                         (#,checker-proc-stx
-                         (lambda () #,test-expr)
+                         (lambda () #,test-expr-checked-for-syntax-error)
                          #,@embedded-stxes
                          #,src-info)))))
              'stepper-skipto
@@ -64,7 +65,7 @@
                 ['stepper-use-val-as-final #t])
                (quasisyntax/loc stx
                  (#,checker-proc-stx
-                  (lambda () #,test-expr)
+                  (lambda () #,test-expr-checked-for-syntax-error)
                   #,@embedded-stxes
                   #,src-info)))))))