From d2196dbd5c4379bdbc307d2035c8a07ef09b592d Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Sun, 3 Nov 2013 19:27:30 -0500 Subject: ListPair.map2, based on code by escalier@riseup.net --- tests/listpair.ur | 6 ++++++ tests/listpair.urp | 5 +++++ 2 files changed, 11 insertions(+) create mode 100644 tests/listpair.ur create mode 100644 tests/listpair.urp (limited to 'tests') diff --git a/tests/listpair.ur b/tests/listpair.ur new file mode 100644 index 00000000..4ecacfd3 --- /dev/null +++ b/tests/listpair.ur @@ -0,0 +1,6 @@ +val x = 1 :: 2 :: [] +val y = 3 :: 4 :: [] + +fun main () : transaction page = return + {[ListPair.map2 plus x y]} + diff --git a/tests/listpair.urp b/tests/listpair.urp new file mode 100644 index 00000000..1b447ed6 --- /dev/null +++ b/tests/listpair.urp @@ -0,0 +1,5 @@ +rewrite all Listpair/* + +$/list +$/listPair +listpair -- cgit v1.2.3