Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-23 20:15:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add custom exception handler to avoid call history

Browse source
This commit is contained in:
Justin Ethier 2020-07-21 12:36:42 -04:00
parent f5cf3b57ee
commit 8a65baef9c
1 changed files with 14 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
cyclone.scm
View file

@ -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)))))