fix copy-tree
parent
23bdf2faa7
commit
13b31be060
|
@ -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 ] }
|
||||
|
|
Loading…
Reference in New Issue