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

remove debugging code from bitstreams

db4
Doug Coleman 2009-05-15 14:59:26 -05:00
parent 9785cd4c40
commit 74d1fe6def
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/bitstreams/bitstreams.factor
View File

@ -104,7 +104,7 @@ M:: lsb0-bit-writer poke ( value n bs -- )
widthed
bs widthed>> #bits>> 8 swap - split-widthed :> remainder :> byte
byte bs widthed>> |widthed :> new-byte
new-byte #bits>> dup 8 > [ "oops" throw ] when 8 = [
new-byte #bits>> 8 = [
new-byte bits>> bs bytes>> push
zero-widthed bs (>>widthed)
remainder widthed>bytes