From: Marius Vollmer <mvo@zagadka.de>
Date: Sat, 11 Sep 1999 15:26:20 +0000 (+0000)
Subject: * boot-9.scm (top-repl): Removed code for ativating readline.
X-Git-Url: http://git.hcoop.net/bpt/guile.git/commitdiff_plain/5b11a9aeaff55bb4a5d7477945cd38824aee98b4

* boot-9.scm (top-repl): Removed code for ativating readline.
---

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))