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:
parent
0af045dfe5
commit
dd6ba90547
1 changed files with 2 additions and 2 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue