;This function interleaves 2 vectors.
(bind-func LR_combine:[void,float*,float*,float*,i64]*
(lambda (frame:float* left:float* right:float* buffer_size:i64)
(let ((n:i64 0))
(dotimes (n (/ buffer_size 2))
(pset! frame (* n 2) (pref left n))
(pset! frame (+ (* n 2) 1) (pref right n)))
void)))