fixed test with display line

2013-10-04 15:11:03 -04:00 · 2013-10-04 15:11:03 -04:00 · bbe1cc9ab6
commit bbe1cc9ab6
parent e9ee4c4504
1 changed files with 2 additions and 1 deletions
--- a/pkgs/htdp-pkgs/htdp-test/2htdp/tests/stop-when-crash.rkt
+++ b/pkgs/htdp-pkgs/htdp-test/2htdp/tests/stop-when-crash.rkt
@ -8,4 +8,5 @@
 (with-handlers ((exn:fail? void))
  (big-bang 0
            (on-draw (λ _ (empty-scene 500 500)))
-            (stop-when (λ _ (car '())))))
+            (stop-when (λ _ (car '()))))
+  (displayln '(*** something went wrong in stop-when crash ***)))