Flush output on prompt so it gets displayed - pee - Pee a password manager;Pee - because you have to...
(HTM) git clone git://vernunftzentrum.de/pee.git
(DIR) Log
(DIR) Files
(DIR) Refs
(DIR) LICENSE
---
(DIR) commit 3daef81bd910bc6a286cabdd3e70be3cc5dbca56
(DIR) parent a5c8e7929fc90d2ddf8c560a2f3154b473af269c
(HTM) Author: Kooda <kooda@upyum.com>
Date: Thu, 1 Dec 2016 13:36:31 +0100
Flush output on prompt so it gets displayed
Diffstat:
pee.scm | 1 +
1 file changed, 1 insertion(+), 0 deletions(-)
---
(DIR) diff --git a/pee.scm b/pee.scm
@@ -62,6 +62,7 @@
(define (prompt-for msg #!optional default)
(if default (printf "~a [~a]: " msg default)
(printf "~a: " msg))
+ (flush-output)
(let ((l (read-line)))
(if (and default (equal? "" l))
default