unboxed -> val, boxed -> box

This commit is contained in:
Dmitry Boulytchev 2021-01-31 21:07:17 +03:00
parent 919cda5556
commit 5ae88f820d
8 changed files with 16 additions and 16 deletions

View file

@ -3,8 +3,8 @@ local n;
fun collect_ints_acc (v, tail) {
local i;
case v of
a@#unboxed -> Cons (a, tail)
| #string -> tail
a@#val -> Cons (a, tail)
| #string -> tail
| _ ->
for i := 0, i < v.length, i := i + 1 do
tail := collect_ints_acc (v[i], tail)