From 6ae6672f8c6c2064fe59893ddb08c31670890dc3 Mon Sep 17 00:00:00 2001
From: Colin Okay <okay@toyful.space>
Date: Tue, 22 Feb 2022 14:15:17 -0600
Subject: updating prompt

---
 src/lib.lisp | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

(limited to 'src/lib.lisp')

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)
-- 
cgit v1.2.3