From 5b11a9aeaff55bb4a5d7477945cd38824aee98b4 Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Sat, 11 Sep 1999 15:26:20 +0000 Subject: [PATCH] * boot-9.scm (top-repl): Removed code for ativating readline. --- ice-9/boot-9.scm | 21 --------------------- 1 file changed, 21 deletions(-) diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm index 5ab5bc29f..3f7d965da 100644 --- a/ice-9/boot-9.scm +++ b/ice-9/boot-9.scm @@ -3014,27 +3014,6 @@ ;; the protected thunk. (lambda () - - ;; If we've got readline, use it to prompt the user. This is a - ;; kludge, but we'll fix it soon. At least we only get - ;; readline involved when we're actually running the repl. - (if (and (memq 'readline *features*) - (isatty? (current-input-port)) - (not (and (module-defined? the-root-module - 'use-emacs-interface) - use-emacs-interface))) - (let ((read-hook (lambda () (run-hook before-read-hook)))) - (set-current-input-port (readline-port)) - (set! repl-reader - (lambda (prompt) - (dynamic-wind - (lambda () - (set-readline-prompt! prompt "... ") - (set-readline-read-hook! read-hook)) - (lambda () (read)) - (lambda () - (set-readline-prompt! "" "") - (set-readline-read-hook! #f))))))) (let ((status (scm-style-repl))) (run-hook exit-hook) status)) -- 2.20.1