mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-06 04:00:26 +02:00
Code Activity

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

Browse source
This commit is contained in:
Marius Vollmer 1999-09-11 15:26:20 +00:00
parent bb190109ae
commit 5b11a9aeaf
1 changed files with 0 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

21
ice-9/boot-9.scm
View file

@ -3014,27 +3014,6 @@
;; the protected thunk. ;; the protected thunk.
(lambda () (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))) (let ((status (scm-style-repl)))
(run-hook exit-hook) (run-hook exit-hook)
status)) status))