(bind-func array_4_ptr_copy (lambda (a:|4,float| data:float*) (pset! data 0 (aref a 0)) (pset! data 1 (aref a 1)) (pset! data 2 (aref a 2)) (pset! data 3 (aref a 3)) void))