(bind-func sys_env_set (lambda (var val) (let ((pool (apr_pool_create)) (res APR_SUCCESS)) (set! res (apr_env_set (cstring val) (cstring var) pool)) (apr_pool_destroy pool) res)))