Exit upon error.

* module/mes/scm.mes (error): Add exit 1.

diff --git a/module/mes/scm.mes b/module/mes/scm.mes
index 042104fea86deaf686309648f87be07943dbcc7f..2e488be620a9ef5bd82aa4310c12019cda467615 100644 (file)
--- 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))