From dd6ba90547b48fbfd0ee0fe272e5e84b8ba85bc7 Mon Sep 17 00:00:00 2001
From: Mikael Djurfeldt <djurfeldt@nada.kth.se>
Date: Tue, 29 Jun 1999 10:35:06 +0000
Subject: [PATCH] * boot-9.scm (top-repl): Set/clear readline prompts
 before/after reading expressions.

---
 ice-9/boot-9.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index cf6e72697..3cf1475de 100644
--- a/ice-9/boot-9.scm
+++ b/ice-9/boot-9.scm
@@ -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)