cs: fix exit on catastrophic failure

Actuall exit, instead of calling `exit` with the wrong number of
arguments and generating an endless stream of errors.
This commit is contained in:
Matthew Flatt 2020-10-23 09:10:05 -06:00
parent 9caa0554bc
commit fb87a5032c

View File

@ -122,7 +122,7 @@
(end-uninterrupted 'reset)
(if (currently-in-engine?)
(engine-return (void))
(chez:exit)))
(#%exit 1)))
(define (engine-block-via-timer)
(cond