From c3c382e45cb3b1b3a2d7dd3fe43e7e495aa75785 Mon Sep 17 00:00:00 2001 From: Joe Groff Date: Thu, 13 Oct 2011 14:51:16 -0700 Subject: [PATCH] ui.tools.listener: fix stream-read-unsafe It was returning the number of requested bytes even if eof was encountered. --- basis/ui/tools/listener/listener.factor | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/basis/ui/tools/listener/listener.factor b/basis/ui/tools/listener/listener.factor index 2829c214e2..4710b29c71 100644 --- a/basis/ui/tools/listener/listener.factor +++ b/basis/ui/tools/listener/listener.factor @@ -152,8 +152,9 @@ M: interactor stream-readln M:: interactor stream-read-unsafe ( n buf interactor -- count ) n [ 0 ] [ + drop interactor interactor-read dup [ "\n" join ] when - n short head-slice 0 buf copy + n short [ head-slice 0 buf copy ] keep ] if-zero ; M: interactor stream-read-partial-unsafe