From bbe1cc9ab6c0cd8f88d54b7fc85ee81060d16d12 Mon Sep 17 00:00:00 2001 From: Matthias Felleisen Date: Fri, 4 Oct 2013 15:11:03 -0400 Subject: [PATCH] fixed test with display line --- pkgs/htdp-pkgs/htdp-test/2htdp/tests/stop-when-crash.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/pkgs/htdp-pkgs/htdp-test/2htdp/tests/stop-when-crash.rkt b/pkgs/htdp-pkgs/htdp-test/2htdp/tests/stop-when-crash.rkt index 2aa5c9d338..8e858ded71 100644 --- 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 ***)))