aboutsummaryrefslogtreecommitdiff
path: root/src/lib.lisp
diff options
context:
space:
mode:
authorColin Okay <okay@toyful.space>2022-02-22 14:15:17 -0600
committerColin Okay <okay@toyful.space>2022-02-22 14:15:17 -0600
commit6ae6672f8c6c2064fe59893ddb08c31670890dc3 (patch)
treeb9c1b2d1b0a233801bdb95d2d9d92ac9bb0ede2a /src/lib.lisp
parent3cb79b3c6abd7607de309f410d957bba344a031e (diff)
updating prompt
Diffstat (limited to 'src/lib.lisp')
-rw-r--r--src/lib.lisp9
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)