mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

make readline's `repl-reader' impl check the current-reader fluid

Browse source 
* guile-readline/ice-9/readline.scm (activate-readline): Use the current
  binding of the current-reader fluid, if it is available.
This commit is contained in:
Andy Wingo 2008-08-02 12:29:07 +02:00
parent d351811347
commit d28d59933c
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
guile-readline/ice-9/readline.scm
View file

@ -215,7 +215,7 @@
(set-buffered-input-continuation?! (readline-port) #f) (set-buffered-input-continuation?! (readline-port) #f)
(set-readline-prompt! repl-prompt "... ") (set-readline-prompt! repl-prompt "... ")
(set-readline-read-hook! repl-read-hook)) (set-readline-read-hook! repl-read-hook))
(lambda () (read)) (lambda () ((or (fluid-ref current-reader) read)))
(lambda () (lambda ()
(set-readline-prompt! outer-new-input-prompt outer-continuation-prompt) (set-readline-prompt! outer-new-input-prompt outer-continuation-prompt)
(set-readline-read-hook! outer-read-hook)))))) (set-readline-read-hook! outer-read-hook))))))