From 985cd0fdb9d120d2e923c6b9928c0fe863e6c7ce Mon Sep 17 00:00:00 2001 From: David Thompson Date: Tue, 27 Dec 2022 08:56:01 -0500 Subject: repl: Fix quit metacommand. --- catbird/repl.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/catbird/repl.scm b/catbird/repl.scm index 965e2d8..29228d0 100644 --- a/catbird/repl.scm +++ b/catbird/repl.scm @@ -28,6 +28,7 @@ #:use-module (catbird region) #:use-module (catbird ring-buffer) #:use-module (catbird scene) + #:use-module (chickadee) #:use-module (chickadee graphics color) #:use-module (chickadee graphics path) #:use-module (chickadee graphics text) @@ -318,7 +319,7 @@ (define-meta-command ((quit q) system repl) "- Quit program." - (exit-catbird)) + (abort-game)) (define-meta-command ((import use) module repl module-name) "MODULE - Import a module." -- cgit v1.2.3