(bind-func static AudioBuffer_seek
(lambda (ab:AudioBuffer* seek_to)
(if (< seek_to 0)
(begin
(println "AudioBuffer seek value must be > 0")
#f)
(let ((len (AudioBuffer_frames ab)))
(AudioBuffer_set_playhead ab (if (< seek_to len) seek_to len))
#t))))