diff options
| -rw-r--r-- | src/lib.lisp | 9 |
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) |