From 8e50d849f23a839f2410cc388f97ee2dc4c76786 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 26 Aug 2012 00:43:37 +0000
Subject: 	* interp/i-util.boot: Lose paramater.  Unconditional flush the
 	output stream.  Adjust callers.

---
 src/interp/server.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/interp/server.boot')

diff --git a/src/interp/server.boot b/src/interp/server.boot
index 6206169e..e989fe80 100644
--- a/src/interp/server.boot
+++ b/src/interp/server.boot
@@ -90,7 +90,7 @@ serverReadLine(stream) ==
        stringBuf := sockGetString $MenuServer
        CATCH('coerceFailure,CATCH($intTopLevel, CATCH($SpadReaderTag,
 	 parseAndInterpret stringBuf)))
-       not $leanMode and printPrompt "andFlush"
+       not $leanMode and printPrompt()
      action = $NonSmanSession =>
        $SpadServer := nil
      action = $KillLispSystem => 
-- 
cgit v1.2.3