Length, string -> std functions

This commit is contained in:
Dmitry Boulytchev 2021-01-31 22:57:12 +03:00
parent 216e716251
commit f1430a1cdf
10 changed files with 21 additions and 39 deletions

View file

@ -317,7 +317,7 @@ public fun lookupMemo (mm@[p, m], v) {
Some (w) -> w
| None ->
case v of
#string -> mm[1] := addMap (m, v, v); v
#str -> mm[1] := addMap (m, v, v); v
| _ ->
var vc = clone (v), i = case vc of #fun -> 1 | _ -> 0 esac;
for skip, i < v.length, i := i + 1 do