From c455f399a249eaa81162c1e5fb3f633b508b5f62 Mon Sep 17 00:00:00 2001
From: Steve Ayerhart <steve@ayerh.art>
Date: Tue, 3 Mar 2020 16:22:02 -0600
Subject: [PATCH] remove debugging

---
 extra/flac/metadata/metadata.factor | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

diff --git a/extra/flac/metadata/metadata.factor b/extra/flac/metadata/metadata.factor
index efbada2432..68f94a9f2a 100644
--- a/extra/flac/metadata/metadata.factor
+++ b/extra/flac/metadata/metadata.factor
@@ -140,7 +140,7 @@ TUPLE: metadata
     bitstreams:<msb0-bit-reader> (parse-metadata-block-header) ;
 
 : read-metadata-block-header ( -- header )
-    4 read parse-metadata-block-header dup . ;
+    4 read parse-metadata-block-header ;
 
 :: (parse-stream-info) ( bitstream -- stream-info )
     [
@@ -259,9 +259,3 @@ PRIVATE>
 
 : <flac-metadata> ( filename -- metadata )
     read-metadata ;
-
-:: write-something ( bitstream -- header )
-    1 1 bitstream bitstreams:poke
-    1 7 bitstream bitstreams:poke
-        34 24 bitstream bitstreams:poke
-    bitstream bitstreams:bit-writer-bytes ;