From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 10 Jan 2022 19:29:09 +0000 (-0800)
Subject: listener: if prompt is empty, then don't stream-bl
X-Git-Tag: 0.99~1910
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=1e0585e2e41eb54422890d51cfdad68d4d4caaad

listener: if prompt is empty, then don't stream-bl
---

diff --git a/basis/listener/listener.factor b/basis/listener/listener.factor
index a8ecf642aa..717b459516 100644
--- a/basis/listener/listener.factor
+++ b/basis/listener/listener.factor
@@ -12,7 +12,7 @@ GENERIC#: prompt. 1 ( stream prompt -- )
 
 : prompt ( -- str )
     manifest get current-vocab>> [ name>> "IN: " prepend ] [ "" ] if*
-    auto-use? get [ " auto-use" append ] when ;
+    auto-use? get [ dup empty? "" " " ? "auto-use" 3append ] when ;
 
 SYMBOL: prompt-style
 H{
@@ -21,7 +21,7 @@ H{
 } prompt-style set-global
 
 M: object prompt.
-    nip prompt-style get-global format bl flush ;
+    nip [ prompt-style get-global format bl ] unless-empty ;
 
 SYMBOL: handle-ctrl-break
 
@@ -126,7 +126,7 @@ t error-summary? set-global
     visible-vars.
     datastack datastack.
     input-stream get prompt prompt.
-
+    flush
     [
         read-quot [
             '[ [ datastack _ with-datastack ] with-ctrl-break ]