(bind-func sys_file_rename (lambda (from_path to_path) (let ((pool (apr_pool_create)) (res APR_SUCCESS)) (set! res (apr_file_rename (cstring from_path) (cstring to_path) pool)) (apr_pool_destroy pool) res)))