@@ -42,7 +42,8 @@ pub fun list/lookup(m: list<(k,v)>, k: k, ?(==): (k, k) -> e bool): e maybe<v>
4242pub fun map/ lookup (m : linearMap < k, v> , k : k, ? (== ): ( k, k) -> e bool ): e maybe < v>
4343 m. internal. lookup(k)
4444
45- pub fun map/ get (m : linearMap < k, v> , k : k, ? (== ): ( k, k) -> < exn |e> bool , ? kk-file-line : string ): < exn |e> v
45+ pub fun map/ get (m : linearMap < k, v> , k : k, ? (== ): ( k, k) -> e bool , ? kk-file-line : string ): < exn |e> v
46+ val mask/ (==) = fn (k1,k2) mask < exn > {? (== )(k1,k2)}
4647 m. internal. lookup(k). unjust
4748
4849pub fun list/ get-default (l : list < ( k, v) > , k : k, v : v, ? (== ): ( k, k) -> e bool ): e v
@@ -74,7 +75,7 @@ pub fun map/map(m: linearMap<k,v>, f: (k, v) -> e v1): e linearMap<k,v1>
7475 val LinearMap (l) = m
7576 LinearMap (l. map(fn ((k,v)) (k, f(k,v))))
7677
77- pub fun unions (l : list < linearMap < k, v> > , ? (== ): ( k, k) -> < exn |e > bool ): < exn |e > linearMap < k, v>
78+ pub fun unions (l : list < linearMap < k, v> > , ? (== ): ( k, k) -> e bool ): e linearMap < k, v>
7879 val fst = l. head. default(LinearMap ([]))
7980 l. foldl(fst, fn (x, y) x. add-all(y. internal))
8081
0 commit comments