In stepper, make output from check-expect go to REPL.

Fixes #223.
racket · Sep 9, 2024 · a6c3096 · a6c3096
1 parent d701105
commit a6c3096
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/htdp-lib/stepper/drracket-button.rkt b/htdp-lib/stepper/drracket-button.rkt
@@ -20,4 +20,8 @@
    x:step-img
    (λ (drs-frame)
      (configure)
-     (send (send drs-frame get-current-tab) stepper-button-callback language settings))))
+     (define tab (send drs-frame get-current-tab))
+     (parameterize
+         ;; make sure output, say from failed check-expects, goes into the REPL
+         ((current-output-port (send (send tab get-ints) get-out-port)))
+       (send tab stepper-button-callback language settings)))))