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 ;
|
||||
def array 0 anew =array
|
||||
while { dup type eq not } {
|
||||
0 1 anew dup:set; array aadd =array
|
||||
awrap array aadd =array
|
||||
}
|
||||
pop array
|
||||
}
|
||||
|
@ -41,8 +41,9 @@ func read-file { str | with path ;
|
|||
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 ;
|
||||
i idxsrc + from:get i idxdst + to:set;
|
||||
}>
|
||||
to
|
||||
}
|
||||
|
|
Loading…
Reference in a new issue