removing the troublesome exit

This commit is contained in:
Danny Yoo 2012-05-02 23:35:29 -04:00
parent 89c224439b
commit bf33504e06

View File

@ -56,8 +56,7 @@
(fprintf (current-report-port) "------------------\n")
(displayln (get-output-string op) (current-report-port))
(fprintf (current-report-port) "------------------\n")
(fprintf (current-report-port) "\nAborting compilation.\n")
(exit)))]
(fprintf (current-report-port) "\nAborting compilation.\n")))]
(thunk)))