(bind-func print
"specialised print function for IffChunkHeader*"
(lambda (hdr:IffChunkHeader*)
(if (null? hdr)
(printf "<IffChunkHeader 0x0>")
(printf "<IffChunkHeader chunk ID: %.4s chunk size: %d>"
(aref-ptr (tref-ptr hdr 0) 0)
(iffchunk_size hdr #t))) ;; this will only work for WAVE
void))