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

ui.tools.listener: fix stream-read-until on interactor gadgets.

db4
John Benediktsson 2012-07-22 15:16:39 -07:00
parent efe2926d8e
commit 5589b2bbd2
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -167,6 +167,15 @@ M: interactor stream-read1
[ nip first first ] [ nip first first ]
} cond ; } cond ;
M: interactor stream-read-until ( seps stream -- seq sep/f )
swap '[
_ interactor-read [
"\n" join CHAR: \n suffix
[ _ member? ] dupd find
[ [ head ] when* ] dip
] [ f f ] if* dup not
] [ drop ] produce swap [ concat prepend ] dip ;
M: interactor dispose drop ; M: interactor dispose drop ;
: go-to-error ( interactor error -- ) : go-to-error ( interactor error -- )