updating prompt

1 files changed, 4 insertions, 5 deletions

diff --git a/src/lib.lisp b/src/lib.lisp
index ca1bd81..173b9aa 100644
--- a/src/lib.lisp
+++ b/src/lib.lisp
@@ -97,15 +97,14 @@ the directories that appear in the value of that variable."
                  retry-text)
 
   (loop
-    ;with to-prompt = prompt
+    with prompt-text = prompt
     with should-retry-p = t
     while should-retry-p
-    for line = (progn
-                 ;(princ to-prompt out-stream) (force-output out-stream)                 
-                 ;(setf to-prompt (or retry-text prompt))
-                 (linedit:linedit :prompt prompt))
+    for line = (linedit:linedit :prompt prompt-text)
     when (funcall expect line)
       do (setf should-retry-p nil)
+    when retry-text
+      do (setf prompt-text retry-text)
     finally (return line)))
 
 (defun cached-result (&optional n)