mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-07 08:40:21 +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) (lambda (prompt)
(dynamic-wind (dynamic-wind
(lambda () (lambda ()
(set-readline-prompt! prompt) (set-readline-prompt! prompt "... ")
(set-readline-read-hook! read-hook)) (set-readline-read-hook! read-hook))
(lambda () (read)) (lambda () (read))
(lambda () (lambda ()
(set-readline-prompt! "") (set-readline-prompt! "" "")
(set-readline-read-hook! #f))))))) (set-readline-read-hook! #f)))))))
(let ((status (scm-style-repl))) (let ((status (scm-style-repl)))
(run-hook exit-hook) (run-hook exit-hook)