steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

remove debugging

flac
Steve Ayerhart 2020-03-03 16:22:02 -06:00
parent 1dfba430a8
commit c455f399a2
No known key found for this signature in database
GPG Key ID: 5BFD39C5359E967D
1 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/flac/metadata/metadata.factor
View File

@ -140,7 +140,7 @@ TUPLE: metadata
bitstreams:<msb0-bit-reader> (parse-metadata-block-header) ; bitstreams:<msb0-bit-reader> (parse-metadata-block-header) ;
: read-metadata-block-header ( -- 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 ) :: (parse-stream-info) ( bitstream -- stream-info )
[ [
@ -259,9 +259,3 @@ PRIVATE>
: <flac-metadata> ( filename -- metadata ) : <flac-metadata> ( filename -- metadata )
read-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 ;