(bind-func sys_file_write (lambda (file buf nbytes) (let ((nbytes_ptr:size_t* (salloc))) (pset! nbytes_ptr 0 nbytes) (apr_file_write file buf nbytes_ptr) (pref nbytes_ptr 0))))