From 1f42bd19589d5193c981ba070559e111166fbd71 Mon Sep 17 00:00:00 2001 From: John Clements Date: Sun, 4 Sep 2005 07:43:33 +0000 Subject: [PATCH] ... svn: r764 --- collects/stepper/private/model.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/stepper/private/model.ss b/collects/stepper/private/model.ss index 3de2a8543b..a0db64c9f0 100644 --- a/collects/stepper/private/model.ss +++ b/collects/stepper/private/model.ss @@ -224,9 +224,9 @@ (define (err-display-handler message exn) (if (not (eq? held-exp-list no-sexp)) (begin - (set! held-exp-list no-sexp) (receive-result (make-before-error-result (append held-finished-list held-exp-list) - message))) + message)) + (set! held-exp-list no-sexp)) (receive-result (make-error-result message))))) (program-expander