changed drs so that definitions window programs abort at first error (also fixes bug in error message reporting in the module language)

svn: r5284
This commit is contained in:
Robby Findler 2007-01-09 22:10:54 +00:00
parent 560fbd4d88
commit 6c02b499fb

View File

@ -1050,7 +1050,12 @@ TODO
(call-with-values
(λ ()
(call-with-continuation-prompt
(λ () (with-stacktrace-name (eval-syntax sexp/syntax/eof)))))
(λ () (with-stacktrace-name (eval-syntax sexp/syntax/eof)))
(default-continuation-prompt-tag)
(and complete-program?
(λ args
(abort-current-continuation
(default-continuation-prompt-tag))))))
(λ x (display-results x)))
(loop)))))))
(default-continuation-prompt-tag)