(bind-func audiofile_float_to_sample_le (lambda (src:i8* dest:SAMPLE* nsamp) (doloop (i nsamp) (pset! dest i (pref (cast src float*) i)))))