From 74d1fe6defeffdb4435bd274be203bd1a5b3da82 Mon Sep 17 00:00:00 2001
From: Doug Coleman <erg@jobim.local>
Date: Fri, 15 May 2009 14:59:26 -0500
Subject: [PATCH] remove debugging code from bitstreams

---
 basis/bitstreams/bitstreams.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/bitstreams/bitstreams.factor b/basis/bitstreams/bitstreams.factor
index 300ab5c1bf..cb6a753735 100644
--- 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