guile-hurd/hurd/libc/getcrdir.lisp

(in-package :hurd)

(defcfun ("getcrdir" %getcrdir) file-t)

(defun getcrdir ()
  "Get a file port name of current root directory."
  (%getcrdir))