fix copy-tree

db4
Doug Coleman 2008-03-31 13:43:42 -05:00
parent 23bdf2faa7
commit 13b31be060
1 changed files with 2 additions and 0 deletions

View File

@ -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 ] }