fix pure.spl
This commit is contained in:
parent
0fb01cfb20
commit
6d78b276d4
5
pure.spl
5
pure.spl
|
@ -31,7 +31,7 @@ func or { a||b | with a b ;
|
||||||
func alit-end { array | with type ;
|
func alit-end { array | with type ;
|
||||||
def array 0 anew =array
|
def array 0 anew =array
|
||||||
while { dup type eq not } {
|
while { dup type eq not } {
|
||||||
0 1 anew dup:set; array aadd =array
|
awrap array aadd =array
|
||||||
}
|
}
|
||||||
pop array
|
pop array
|
||||||
}
|
}
|
||||||
|
@ -41,8 +41,9 @@ func read-file { str | with path ;
|
||||||
1024 stream:read-to-end:to-str
|
1024 stream:read-to-end:to-str
|
||||||
}
|
}
|
||||||
|
|
||||||
func acopy { | with from to idxsrc idxdst len ;
|
func acopy { array | with from to idxsrc idxdst len ;
|
||||||
len:foreach<{ | with i ;
|
len:foreach<{ | with i ;
|
||||||
i idxsrc + from:get i idxdst + to:set;
|
i idxsrc + from:get i idxdst + to:set;
|
||||||
}>
|
}>
|
||||||
|
to
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in a new issue