;; super naive - will run off the end of the buffer if it doesn't find ;; the desired ID (bind-func iffchunk_find_dumb (lambda (fileptr:i8* id:i8*) (while (<> (strncmp fileptr id 4) 0) (set! fileptr (pref-ptr fileptr 1))) fileptr))