Exit upon error.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sun, 30 Oct 2016 19:33:59 +0000 (20:33 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Mon, 12 Dec 2016 19:33:49 +0000 (20:33 +0100)
* module/mes/scm.mes (error): Add exit 1.

module/mes/scm.mes

index 042104fea86deaf686309648f87be07943dbcc7f..2e488be620a9ef5bd82aa4310c12019cda467615 100644 (file)
   (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))