(bind-func sys_pwd
(lambda ()
(let ((pool (apr_pool_create))
(dirname:i8** (salloc 1024))
(res APR_SUCCESS))
(set! res (apr_filepath_get dirname 0 pool))
(apr_pool_destroy pool)
(if (= res APR_SUCCESS) (Str (pref dirname 0)) null))))