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