From 5bab5de16d64a49e9157f4e9835a185cd3638c02 Mon Sep 17 00:00:00 2001
From: erg <erg@ergbook.local>
Date: Wed, 26 Mar 2008 22:47:13 -0500
Subject: [PATCH] make directory work inside with-directory
---
core/io/backend/backend.factor | 4 ++--
core/io/files/files-tests.factor | 6 ++++++
2 files changed, 8 insertions(+), 2 deletions(-)
diff --git a/core/io/backend/backend.factor b/core/io/backend/backend.factor
index 8cfcbb71de..151dbc7df7 100755
--- a/core/io/backend/backend.factor
+++ b/core/io/backend/backend.factor
@@ -17,10 +17,10 @@ HOOK: io-multiplex io-backend ( ms -- )
HOOK: normalize-directory io-backend ( str -- newstr )
-M: object normalize-directory ;
-
HOOK: normalize-pathname io-backend ( str -- newstr )
+M: object normalize-directory normalize-pathname ;
+
: set-io-backend ( io-backend -- )
io-backend set-global init-io init-stdio ;
diff --git a/core/io/files/files-tests.factor b/core/io/files/files-tests.factor
index bb8e997c68..369ecc6868 100755
--- a/core/io/files/files-tests.factor
+++ b/core/io/files/files-tests.factor
@@ -83,6 +83,12 @@ io.encodings.utf8 ;
"delete-tree-test" temp-file delete-tree
] unit-test
+[ { { "kernel" t } } ] [
+ "core" resource-path [
+ "." directory [ first "kernel" = ] subset
+ ] with-directory
+] unit-test
+
[ ] [
"copy-tree-test/a/b/c" temp-file make-directories
] unit-test