From b225596addee1a3cfd6c3189cff923e7f0e8f7c9 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Sun, 13 Dec 2009 14:20:41 -0500
Subject: Initializers and setval

---
 src/scriptcheck.sml | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/scriptcheck.sml')

diff --git a/src/scriptcheck.sml b/src/scriptcheck.sml
index 6dc11c65..5cd056d5 100644
--- a/src/scriptcheck.sml
+++ b/src/scriptcheck.sml
@@ -114,6 +114,7 @@ fun classify (ds, ps) =
                                                               orelse hasClient initial
                       | EDml {dml, ...} => hasClient dml
                       | ENextval {seq, ...} => hasClient seq
+                      | ESetval {seq, count, ...} => hasClient seq orelse hasClient count
                       | EUnurlify (e, _) => hasClient e
             in
                 hasClient
-- 
cgit v1.2.3