From 2513e44c4a1e4dc2ad8f0ab817d4f51aecc3660f Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Tue, 15 Dec 2009 13:20:13 -0500
Subject: Fix new Especialize security bug: do not duplicate free variables as
 specialized arguments

---
 demo/tree.ur | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'demo')

diff --git a/demo/tree.ur b/demo/tree.ur
index d7b0919e..0a13e470 100644
--- a/demo/tree.ur
+++ b/demo/tree.ur
@@ -5,6 +5,8 @@ table t : { Id : int, Parent : option int, Nam : string }
 
 open TreeFun.Make(struct
                       val tab = t
+                      con id = #Id
+                      con parent = #Parent
                   end)
 
 fun row r = <xml>
-- 
cgit v1.2.3