(bind-func sys_env_get
(lambda (var)
(let ((pool (apr_pool_create))
(val:i8** (salloc))
(res APR_SUCCESS))
(set! res (apr_env_get val (cstring var) pool))
(apr_pool_destroy pool)
(if (= res APR_SUCCESS)
(Str (pref val 0))
null))))