Report errors at the repl.

svn: r10044
2008-05-30 16:01:44 +00:00 · 2008-05-30 16:01:44 +00:00 · 20a9a3e0b3
commit 20a9a3e0b3
parent d9aa32446f
1 changed files with 2 additions and 1 deletions
--- a/collects/typed-scheme/private/tc-toplevel.ss
+++ b/collects/typed-scheme/private/tc-toplevel.ss
@ -240,5 +240,6 @@
 ;; syntax -> void
 (define (tc-toplevel-form form)
  (tc-toplevel/pass1 form)  
-  (tc-toplevel/pass2 form))
+  (begin0 (tc-toplevel/pass2 form)
+          (report-all-errors)))