From ae8c16af976173ab73c63dd0ca7b9dc2183b3d6b Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Thu, 14 May 2009 08:13:54 -0400 Subject: Improving/reordering Unpoly and Especialize; pathmaps --- tests/pathmap.ur | 7 +++++++ 1 file changed, 7 insertions(+) create mode 100644 tests/pathmap.ur (limited to 'tests/pathmap.ur') diff --git a/tests/pathmap.ur b/tests/pathmap.ur new file mode 100644 index 00000000..44699048 --- /dev/null +++ b/tests/pathmap.ur @@ -0,0 +1,7 @@ +val x = List.rev (List.Cons (1, List.Cons (0, List.Nil))) +val y = List.mp (plus 2) x + +fun main () : transaction page = return + {[x]}
+ {[y]} + -- cgit v1.2.3