summaryrefslogtreecommitdiff
path: root/module/system/repl/command.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/system/repl/command.scm')
-rw-r--r--module/system/repl/command.scm5
1 files changed, 4 insertions, 1 deletions
diff --git a/module/system/repl/command.scm b/module/system/repl/command.scm
index 8b0422dbd..5b575f368 100644
--- a/module/system/repl/command.scm
+++ b/module/system/repl/command.scm
@@ -229,7 +229,10 @@
(lp (cons x out)))))))
(lambda (k . args)
(handle-read-error #f k args)))))
- (lambda (k) #f))))) ; the abort handler
+ ;; The abort handler:
+ (lambda (k)
+ (flush-all-input)
+ #f)))))
((_ ((name category) repl . datums) docstring b0 b1 ...)
(define-meta-command ((name category) repl () . datums)