adam@1724: fun f [r] [[Id, Foo] ~ r] (x : $(map (fn ts => $ts) r ++ [Id = int, Foo = string])) adam@1724: : $(map (fn ts => $ts) r ++ [Foo = string]) = x adam@1724: adam@1724: val r = {} adam@1724: val x : $(map (fn ts => $ts) _ ++ [Foo = string]) = f r