5 lines
144 B
Text
5 lines
144 B
Text
|
[ ( source dest -- )
|
||
|
|
swap file.slurp dup 0 <>
|
||
|
|
[ >r "W" file.open dup r> string.getLength file.write drop file.close ] ifTrue
|
||
|
|
] is copy-file
|