Mercurial > urweb

diff src/core_env.sml @ 705:e6706a1df013

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Track uniqueness sets in table types
author Adam Chlipala <adamc@hcoop.net>
date Tue, 07 Apr 2009 14:11:32 -0400
parents 70cbdcf5989b
children d8217b4cb617
line wrap: on
line diff
--- a/src/core_env.sml	Tue Apr 07 12:24:31 2009 -0400
+++ b/src/core_env.sml	Tue Apr 07 14:11:32 2009 -0400
@@ -313,11 +313,13 @@
       | DVal (x, n, t, e, s) => pushENamed env x n t (SOME e) s
       | DValRec vis => foldl (fn ((x, n, t, e, s), env) => pushENamed env x n t NONE s) env vis
       | DExport _ => env
-      | DTable (x, n, c, s, _) =>
+      | DTable (x, n, c, s, _, cc) =>
         let
-            val t = (CApp ((CFfi ("Basis", "sql_table"), loc), c), loc)
+            val ct = (CFfi ("Basis", "sql_table"), loc)
+            val ct = (CApp (ct, c), loc)
+            val ct = (CApp (ct, cc), loc)
         in
-            pushENamed env x n t NONE s
+            pushENamed env x n ct NONE s
         end
       | DSequence (x, n, s) =>
         let