...

svn: r764
2005-09-04 07:43:33 +00:00 · 2005-09-04 07:43:33 +00:00 · 1f42bd1958
commit 1f42bd1958
parent e54afdb8c8
1 changed files with 2 additions and 2 deletions
--- 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