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

Clean up listener

db4
Slava Pestov 2008-01-31 00:52:24 -06:00
parent 926e09a46a
commit b60a4f4ade
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
core/listener/listener.factor
View File

@ -18,11 +18,10 @@ GENERIC: stream-read-quot ( stream -- quot/f )
[ parse-lines in get ] with-compilation-unit in set ; [ parse-lines in get ] with-compilation-unit in set ;
: read-quot-step ( lines -- quot/f ) : read-quot-step ( lines -- quot/f )
[ parse-lines-interactive ] catch { [ parse-lines-interactive ] [
{ [ dup delegate unexpected-eof? ] [ 2drop f ] } dup delegate unexpected-eof?
{ [ dup not ] [ drop ] } [ 2drop f ] [ rethrow ] if
{ [ t ] [ rethrow ] } ] recover ;
} cond ;
: read-quot-loop ( stream accum -- quot/f ) : read-quot-loop ( stream accum -- quot/f )
over stream-readln dup [ over stream-readln dup [