convert relative paths to fs-objects as well.

2006-04-06 15:02:14 +00:00 · 2006-04-06 15:02:14 +00:00 · ca30df1cd7
parent f7bb38740e
commit ca30df1cd7
1 changed files with 5 additions and 1 deletions
--- a/scheme/fs-object.scm
+++ b/scheme/fs-object.scm
@ -43,4 +43,8 @@
  (if (file-name-absolute? file-name)
      (make-fs-object (file-name-nondirectory file-name)
                      (file-name-directory file-name))
-      (error "WRITE-ME file-name->fs-object")))
+      (let ((rest-dirs (file-name-directory file-name)))
+        (make-fs-object (file-name-nondirectory file-name)
+                        (string-append (cwd)
+                                       "/"
+                                       rest-dirs)))))