remove debugging code from bitstreams

diff --git a/basis/bitstreams/bitstreams.factor b/basis/bitstreams/bitstreams.factor
index 300ab5c1bfb3d717a5cc4ec4e965ab017fae750d..cb6a753735ca0b7d1f4aebb31129865cadd6559e 100644 (file)
--- a/basis/bitstreams/bitstreams.factor
+++ b/basis/bitstreams/bitstreams.factor
@@ -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