(xdef 'dir (lambda (name) (map path->string (directory-list name))))

From ac.scm ©