From 27282738fd3ec3cddbf37d2267bfe0565eafd84b Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Sun, 30 Oct 2016 20:33:59 +0100 Subject: [PATCH] Exit upon error. * module/mes/scm.mes (error): Add exit 1. --- module/mes/scm.mes | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/module/mes/scm.mes b/module/mes/scm.mes index 042104fe..2e488be6 100644 --- a/module/mes/scm.mes +++ b/module/mes/scm.mes @@ -163,7 +163,9 @@ (display who (current-error-port)) (display ":" (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) (display "syntax-error:" (current-error-port))