steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ui.tools.listener: fix read-until with Ctrl-D.

db4
John Benediktsson 2012-07-23 11:07:03 -07:00
parent b4f4e6f6ca
commit 3b5094a73c
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/ui/tools/listener/listener.factor
View File

@ -172,9 +172,9 @@ M: interactor stream-read-until ( seps stream -- seq sep/f )
_ interactor-read [ _ interactor-read [
"\n" join CHAR: \n suffix "\n" join CHAR: \n suffix
[ _ member? ] dupd find [ _ member? ] dupd find
[ [ head ] when* ] dip [ [ head ] when* ] dip dup not
] [ f f ] if* dup not ] [ f f f ] if*
] [ drop ] produce swap [ concat prepend ] dip ; ] [ drop ] produce swap [ concat "" prepend-as ] dip ;
M: interactor dispose drop ; M: interactor dispose drop ;