From 1829f4e7326102f7639a7685c1ed0fbb94527a5b Mon Sep 17 00:00:00 2001
From: Steve Ayerhart <steve@ayerh.art>
Date: Mon, 9 Aug 2021 11:49:36 -0400
Subject: [PATCH] add flac seek

---
 flac/bitstream/bitstream.factor | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/flac/bitstream/bitstream.factor b/flac/bitstream/bitstream.factor
index 22b0b19..da036f3 100644
--- a/flac/bitstream/bitstream.factor
+++ b/flac/bitstream/bitstream.factor
@@ -31,6 +31,10 @@ M: flac-stream-reader dispose stream>> dispose ;
         dup bytes>> swap [ prepend ] dip swap >>bytes drop
     ] while flac-input-stream get bitstream>> bitstreams:read ;
 
+: flac-seek ( n -- )
+    [ 8 * flac-input-stream get bitstream>> bitstreams:seek ]
+    [ io:seek-relative flac-input-stream get stream>> io:stream-seek ] bi ;
+
 : flac-read-sint ( n -- n )
     ! TODO: this isn't rightt
     dup flac-read-uint dup . dup 1 - neg shift swap shift ;