Mercurial > urweb

diff src/mono.sml @ 252:7e9bd70ad3ce

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Monoized and optimized initial query test
author Adam Chlipala <adamc@hcoop.net>
date Sun, 31 Aug 2008 13:58:47 -0400
parents 326fb4686f60
children 42dfb0d61cf0
line wrap: on
line diff
--- a/src/mono.sml	Sun Aug 31 10:36:54 2008 -0400
+++ b/src/mono.sml	Sun Aug 31 13:58:47 2008 -0400
@@ -75,6 +75,13 @@
 
        | EClosure of int * exp list
 
+       | EQuery of { exps : (string * typ) list,
+                     tables : (string * (string * typ) list) list,
+                     state : typ,
+                     query : exp,
+                     body : exp,
+                     initial : exp }
+
 
 withtype exp = exp' located