mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-30 17:00:23 +02:00
Code Activity

* boot-9.scm (top-repl): Set/clear readline prompts before/after

Browse source 
reading expressions.
This commit is contained in:
Mikael Djurfeldt 1999-06-29 10:35:06 +00:00
parent 0af045dfe5
commit dd6ba90547
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -3091,11 +3091,11 @@
(lambda (prompt)
(dynamic-wind
(lambda ()
(set-readline-prompt! prompt)
(set-readline-prompt! prompt "... ")
(set-readline-read-hook! read-hook))
(lambda () (read))
(lambda ()
(set-readline-prompt! "")
(set-readline-prompt! "" "")
(set-readline-read-hook! #f)))))))
(let ((status (scm-style-repl)))
(run-hook exit-hook)