From 8a65baef9cd169d9a7a90cc35945ada49ec0f354 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Tue, 21 Jul 2020 12:36:42 -0400
Subject: [PATCH] Add custom exception handler to avoid call history

---
 cyclone.scm | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/cyclone.scm b/cyclone.scm
index 3d53acb5..4661a78c 100644
--- a/cyclone.scm
+++ b/cyclone.scm
@@ -947,5 +947,18 @@ Debug options:
      (display "cyclone: no input file")
      (newline))
     (else
-      (run-compiler non-opts compile? cc-prog cc-exec cc-lib cc-so cc-linker-opts append-dirs prepend-dirs))))
+     (with-handler
+      (lambda (err)
+        ;(parameterize ((current-input-port (current-error-port))))
+        (display "Error: " (current-error-port))
+        (display (car err) (current-error-port))
+        (newline (current-error-port))
+        (for-each
+          (lambda (obj)
+            (write obj (current-error-port))
+            (newline (current-error-port)))
+          (cdr err))
+        (newline (current-error-port))
+        (exit 1) )
+      (run-compiler non-opts compile? cc-prog cc-exec cc-lib cc-so cc-linker-opts append-dirs prepend-dirs)))))