Welcome to the CHICKEN Scheme pasting service

From 37a04f9d5e94332259773f0d41b10e19c97b92d5 Mon Sep 17 00:00:00 2001
From: Kooda <kooda@upyum.com>
Date: Thu, 1 Dec 2016 13:36:31 +0100
Subject: [PATCH] Flush output on prompt so it gets displayed

---
 pee.scm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/pee.scm b/pee.scm
index a6c8eca..0bf4d1f 100644
--- 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
-- 
2.10.2