File input/output: Difference between revisions
Content added Content deleted
Line 2,532: | Line 2,532: | ||
func: do-copy { |
func: do-copy { |
||
let: |
let: q io-queue; |
||
@ |
@q $1 do-write _ _ |
||
rfile read 0 $1 { |
rfile read 0 $1 { |
||
len $0 +? { |
len $0 +? { |
||
@ |
@q $2 push do-write |
||
} when _ + |
} when _ + |
||
} for |
} for |