Mercurial > urweb

comparison 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
comparison
equal deleted inserted replaced
703:a5d8b470d7ca 704:70cbdcf5989b
311 env xncs 311 env xncs
312 end 312 end
313 | DVal (x, n, t, e, s) => pushENamed env x n t (SOME e) s 313 | DVal (x, n, t, e, s) => pushENamed env x n t (SOME e) s
314 | DValRec vis => foldl (fn ((x, n, t, e, s), env) => pushENamed env x n t NONE s) env vis 314 | DValRec vis => foldl (fn ((x, n, t, e, s), env) => pushENamed env x n t NONE s) env vis
315 | DExport _ => env 315 | DExport _ => env
316 | DTable (x, n, c, s) => 316 | DTable (x, n, c, s, _) =>
317 let 317 let
318 val t = (CApp ((CFfi ("Basis", "sql_table"), loc), c), loc) 318 val t = (CApp ((CFfi ("Basis", "sql_table"), loc), c), loc)
319 in 319 in
320 pushENamed env x n t NONE s 320 pushENamed env x n t NONE s
321 end 321 end