If you want me to stop posting these just tell me so. I don't want to be a
pain.
Is there a good way to tidy this up to get rid of the large number of swaps?
Mark
: get-chunk ( alist id -- chunk )
swap at*
[ "Missing chunk type" throw-set-loading-error ] unless
0 swap nth <msb0-bit-reader> ;
: bsread-string ( count width bitreader -- string )
'[ _ _ bsread ] replicate ascii decode ;
: parse-sc ( -- head ) test "SC" get-chunk
25 swap 7 swap bsread-string ;
------------------------------------------------------------------------------
Download BIRT iHub F-Type - The Free Enterprise-Grade BIRT Server
from Actuate! Instantly Supercharge Your Business Reports and Dashboards
with Interactivity, Sharing, Native Excel Exports, App Integration & more
Get technology previously reserved for billion-dollar corporations, FREE
http://pubads.g.doubleclick.net/gampad/clk?id=164703151&iu=/4140/ostg.clktrk
_______________________________________________
Factor-talk mailing list
Factor-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/factor-talk
