4 lines
144 B
Text
4 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
|