 |
set output port to unbuffered. This fixes musl systems - pee - Pee a password m… |
 |
git clone git://vernunftzentrum.de/pee.git |
 |
Log |
|
Files |
|
Refs |
|
LICENSE |
|
--- |
|
commit d0591a7ea969614a00060b5f746b55f59123a236 |
|
parent d6f427949b12d8dc0ce562d08eb9af8637017c58 |
|
Author: Christian Kellermann <[email protected]> |
|
Date: Mon, 5 Dec 2016 14:05:37 +0100 |
|
|
|
set output port to unbuffered. This fixes musl systems |
|
|
|
Diffstat: |
|
pee.scm | 2 +- |
|
|
|
1 file changed, 1 insertion(+), 1 deletion(-) |
|
--- |
|
diff --git a/pee.scm b/pee.scm |
|
@@ -62,7 +62,6 @@ |
|
(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 |
|
@@ -459,6 +458,7 @@ |
|
(print "Your passwords are younger than " days " days.")))) |
|
|
|
(define (main args) |
|
+ (set-buffering-mode! (current-output-port) #:none) |
|
(when (null? args) |
|
(banner) (print (usage options)) (exit 1)) |
|
(let* ((opts |
