From f2fff6993d2b138c2efc5cadaa53ecbdb1c2e1b3 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/pathmap.ur') 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