From fb87a5032c03820ad3c6539187fd05bb2384c04c Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 23 Oct 2020 09:10:05 -0600 Subject: [PATCH] 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. --- racket/src/cs/rumble/engine.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/racket/src/cs/rumble/engine.ss b/racket/src/cs/rumble/engine.ss index 0a1c1fef0b..91fcf7a72a 100644 --- a/racket/src/cs/rumble/engine.ss +++ b/racket/src/cs/rumble/engine.ss @@ -122,7 +122,7 @@ (end-uninterrupted 'reset) (if (currently-in-engine?) (engine-return (void)) - (chez:exit))) + (#%exit 1))) (define (engine-block-via-timer) (cond