From 9e6bd5dd1394c99f0a9b29369a4957c958e0830c Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Thu, 14 May 2009 09:11:58 -0400 Subject: Fix a nasty binding bug in CoreUtil --- tests/pathmap.ur | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'tests') diff --git a/tests/pathmap.ur b/tests/pathmap.ur index 2ce1f5f0..98eaad7e 100644 --- a/tests/pathmap.ur +++ b/tests/pathmap.ur @@ -4,5 +4,6 @@ val y = List.mp (plus 2) x fun main () : transaction page = return {[x]}
{[y]}
- {[Aux.hello]} + {[Aux.hello]}
+ {List.mapX (fn n => {[n]}!) x}
-- cgit v1.2.3