diff options
Diffstat (limited to 'module/system/repl/command.scm')
-rw-r--r-- | module/system/repl/command.scm | 5 |
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) |