Exit upon error.
* module/mes/scm.mes (error): Add exit 1.
This commit is contained in:
parent
79d989268f
commit
27282738fd
|
@ -163,7 +163,9 @@
|
||||||
(display who (current-error-port))
|
(display who (current-error-port))
|
||||||
(display ":" (current-error-port))
|
(display ":" (current-error-port))
|
||||||
(display rest (current-error-port))
|
(display rest (current-error-port))
|
||||||
(newline (current-error-port)))
|
(newline (current-error-port))
|
||||||
|
(display "exiting...\n" (current-error-port))
|
||||||
|
(exit 1))
|
||||||
|
|
||||||
(define (syntax-error message . rest)
|
(define (syntax-error message . rest)
|
||||||
(display "syntax-error:" (current-error-port))
|
(display "syntax-error:" (current-error-port))
|
||||||
|
|
Loading…
Reference in New Issue