(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))))