Unbreak tests broken by d701105

The indirection for inserting the test expression in the generated code is needed to prevent an error.
racket · Sep 10, 2024 · eb9a26f · eb9a26f
1 parent 3af5192
commit eb9a26f
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/htdp-lib/test-engine/syntax.rkt b/htdp-lib/test-engine/syntax.rkt
@@ -37,6 +37,8 @@
                          (syntax-column stx)
                          (syntax-position stx)
                          (syntax-span stx)))))
+  ;; without this indirection, we get "reference to a variable that is not exported"
+  (define test-expr-for-use #`#,test-expr)
   (if (eq? 'module (syntax-local-context))
       #`(define #,bogus-name
           #,(stepper-syntax-property
@@ -48,7 +50,7 @@
                        ['stepper-use-val-as-final #t])
                       (quasisyntax/loc stx
                         (#,checker-proc-stx
-                         (lambda () #,test-expr)
+                         (lambda () #,test-expr-for-use)
                          #,@embedded-stxes
                          #,src-info)))))
              'stepper-skipto
@@ -64,7 +66,7 @@
                 ['stepper-use-val-as-final #t])
                (quasisyntax/loc stx
                  (#,checker-proc-stx
-                  (lambda () #,test-expr)
+                  (lambda () #,test-expr-for-use)
                   #,@embedded-stxes
                   #,src-info)))))))