From 6fc6d97b44658bbd4fc279be5964cf6187772f3c Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Tue, 11 Nov 2008 16:51:45 -0500
Subject: Fix demo regression

---
 src/prepare.sml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/prepare.sml')

diff --git a/src/prepare.sml b/src/prepare.sml
index 28c14639..708bcade 100644
--- a/src/prepare.sml
+++ b/src/prepare.sml
@@ -183,7 +183,7 @@ fun prepExp (e as (_, loc), sns) =
                 NONE =>
                 ((EQuery {exps = exps, tables = tables, rnum = rnum,
                           state = state, query = query, body = body,
-                          initial = initial, prepared = SOME (#2 sns)}, loc),
+                          initial = initial, prepared = NONE}, loc),
                  sns)
               | SOME (ss, n) =>
                 ((EQuery {exps = exps, tables = tables, rnum = rnum,
-- 
cgit v1.2.3