From ca30df1cd7d5188d4690e93a249650d6a110cf22 Mon Sep 17 00:00:00 2001 From: mainzelm Date: Thu, 6 Apr 2006 15:02:14 +0000 Subject: [PATCH] convert relative paths to fs-objects as well. --- scheme/fs-object.scm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/scheme/fs-object.scm b/scheme/fs-object.scm index 723afc4..83bd2ff 100644 --- 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)))))