From 13b31be060071a645bdef5ed61e258d6173e93a6 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Mon, 31 Mar 2008 13:43:42 -0500
Subject: [PATCH] fix copy-tree
---
core/io/files/files.factor | 2 ++
1 file changed, 2 insertions(+)
diff --git a/core/io/files/files.factor b/core/io/files/files.factor
index 458a9145a6..f397af606b 100755
--- a/core/io/files/files.factor
+++ b/core/io/files/files.factor
@@ -4,6 +4,7 @@ USING: io.backend io.files.private io hashtables kernel math
memory namespaces sequences strings assocs arrays definitions
system combinators splitting sbufs continuations io.encodings
io.encodings.binary init accessors ;
+USE: tools.walker
IN: io.files
HOOK: (file-reader) io-backend ( path -- stream )
@@ -267,6 +268,7 @@ M: object copy-file
DEFER: copy-tree-into
: copy-tree ( from to -- )
+ normalize-pathname
over link-info type>>
{
{ +symbolic-link+ [ copy-link ] }