suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

...

Browse Source 
svn: r764
This commit is contained in:
John Clements 2005-09-04 07:43:33 +00:00
parent e54afdb8c8
commit 1f42bd1958
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/stepper/private/model.ss
View File

@ -224,9 +224,9 @@
(define (err-display-handler message exn) (define (err-display-handler message exn)
(if (not (eq? held-exp-list no-sexp)) (if (not (eq? held-exp-list no-sexp))
(begin (begin
(set! held-exp-list no-sexp)
(receive-result (make-before-error-result (append held-finished-list held-exp-list) (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))))) (receive-result (make-error-result message)))))
(program-expander (program-expander