1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-03 21:30:29 +02:00

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

reading expressions.
This commit is contained in:
Mikael Djurfeldt 1999-06-29 10:35:06 +00:00
parent 0af045dfe5
commit dd6ba90547

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)