From 6c02b499fb32d3aa5922571a6d01811db913f634 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 9 Jan 2007 22:10:54 +0000 Subject: [PATCH] changed drs so that definitions window programs abort at first error (also fixes bug in error message reporting in the module language) svn: r5284 --- collects/drscheme/private/rep.ss | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/collects/drscheme/private/rep.ss b/collects/drscheme/private/rep.ss index 82db72e3ee..eedeef7766 100644 --- a/collects/drscheme/private/rep.ss +++ b/collects/drscheme/private/rep.ss @@ -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)