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

don't use exit, raise final error as user error

Browse Source 
svn: r2281
This commit is contained in:
Matthew Flatt 2006-02-18 15:44:21 +00:00
parent db0386c7cb
commit a67a8af981
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/compiler/private/driver.ss
View File

@ -211,7 +211,7 @@
(lambda (exn)
(set! compiler:messages (reverse! compiler:messages))
(compiler:report-messages! #t)
(exit 1)))
(raise-user-error "compile failed")))
(define s:expand-top-level-expressions!
(lambda (input-directory reader verbose?)
@ -503,7 +503,7 @@
(when (and stop-on-errors?
(or (positive? error-count)
(positive? fatal-error-count)))
(error "Errors encountered. Compilation aborted.")))))
(raise-user-error "Errors encountered. Compilation aborted.")))))
(define total-cpu-time 0)
(define total-real-time 0)
@ -1376,7 +1376,6 @@
(lambda ()
(with-handlers
([void (lambda (exn)
(exit)
(compiler:fatal-error
#f
(string-append