summaryrefslogtreecommitdiff
path: root/module/system/repl/repl.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/system/repl/repl.scm')
-rw-r--r--module/system/repl/repl.scm7
1 files changed, 0 insertions, 7 deletions
diff --git a/module/system/repl/repl.scm b/module/system/repl/repl.scm
index fc525b547..1c3407159 100644
--- a/module/system/repl/repl.scm
+++ b/module/system/repl/repl.scm
@@ -92,13 +92,6 @@
*unspecified*)
(else ((language-reader lang) port env))))))))
-(define (flush-all-input)
- (if (and (char-ready?)
- (not (eof-object? (peek-char))))
- (begin
- (read-char)
- (flush-all-input))))
-
;; repl-reader is a function defined in boot-9.scm, and is replaced by
;; something else if readline has been activated. much of this hoopla is
;; to be able to re-use the existing readline machinery.