Mercurial > urweb

diff src/core_env.sml @ 704:70cbdcf5989b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
UNIQUE constraints
author Adam Chlipala <adamc@hcoop.net>
date Tue, 07 Apr 2009 12:24:31 -0400
parents 4a125bbc602d
children e6706a1df013
line wrap: on
line diff
--- a/src/core_env.sml	Sun Apr 05 16:17:32 2009 -0400
+++ b/src/core_env.sml	Tue Apr 07 12:24:31 2009 -0400
@@ -313,7 +313,7 @@
       | 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, _) =>
         let
             val t = (CApp ((CFfi ("Basis", "sql_table"), loc), c), loc)
         in