ADDED pathname-expand/pathname-expand.egg Index: pathname-expand/pathname-expand.egg ================================================================== --- /dev/null +++ pathname-expand/pathname-expand.egg @@ -0,0 +1,4 @@ +((license "BSD") + (category os) + (author "The CHICKEN team") + (components (extension pathname-expand))) Index: pathname-expand/pathname-expand.scm ================================================================== --- pathname-expand/pathname-expand.scm +++ pathname-expand/pathname-expand.scm @@ -33,12 +33,13 @@ ; OF THE POSSIBILITY OF SUCH DAMAGE. (module pathname-expand (pathname-expand) -(import chicken scheme) -(use srfi-13 files posix) +(import (chicken base) (chicken pathname) (chicken condition) (chicken platform) scheme) +(import (chicken fixnum) (chicken process-context) (chicken process-context posix)) +(import srfi-13 (chicken file) ) ;; Expand pathname starting with "~", and/or apply base directory to ;; relative pathname ; ; Inspired by Gambit's "path-expand" procedure.