annotate tests/cancel2.ur @ 1804:62c18ecbfec4
Tweaking treatment of function application: substitute or introduce a 'let'?
| author |
Adam Chlipala <adam@chlipala.net> |
| date |
Sun, 05 Aug 2012 14:55:28 -0400 |
| parents |
125f9b01fbf1 |
| children |
|
| rev |
line source |
|
adam@1724
|
1 fun f [r] [[Id, Foo] ~ r] (x : $(map (fn ts => $ts) r ++ [Id = int, Foo = string]))
|
|
adam@1724
|
2 : $(map (fn ts => $ts) r ++ [Foo = string]) = x
|
|
adam@1724
|
3
|
|
adam@1724
|
4 val r = {}
|
|
adam@1724
|
5 val x : $(map (fn ts => $ts) _ ++ [Foo = string]) = f r
|
