File input/output: Difference between revisions

Content added Content deleted
Line 2,532: Line 2,532:


func: do-copy {
func: do-copy {
let: acc io-queue;
let: q io-queue;
@acc $1 do-write _ _
@q $1 do-write _ _


rfile read 0 $1 {
rfile read 0 $1 {
len $0 +? {
len $0 +? {
@acc $2 push do-write
@q $2 push do-write
} when _ +
} when _ +
} for
} for