You could use `each-morsel` from the io module to implement the input
loop, which would be a bit cleaner. Try laying your code out something
like this:
: each-window ( quot: ( index packet -- ) -- )
[ WINDOW read ] each-morsel ; inline
: main ( -- )
binary decode-input binary encode-output
[ format-packet write ] each-window
eot-packet write ;
-Joe
------------------------------------------------------------------------------
Try before you buy = See our experts in action!
The most comprehensive online learning library for Microsoft developers
is just $99.99! Visual Studio, SharePoint, SQL - plus HTML5, CSS3, MVC3,
Metro Style Apps, more. Free future releases when you subscribe now!
http://p.sf.net/sfu/learndevnow-dev2
_______________________________________________
Factor-talk mailing list
Factor-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/factor-talk
