remove dead code

diff --git a/swflib/tagIn.ml b/swflib/tagIn.ml
index 34f7888..406c95d 100644 (file)
--- a/swflib/tagIn.ml
+++ b/swflib/tagIn.ml
@@ -1,14 +1,6 @@
 open Base
 open SwfBaseIn
 
-let tag n s =
-  match Stream.peek s with
-      Some m when n = m ->
-       Stream.junk s;
-       ()
-    | None | Some _ ->
-       raise Stream.Failure
-
 let of_base tag stream =
   match tag with
       0 ->