Mercurial > urweb

comparison src/core_env.sml @ 707:d8217b4cb617

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
PRIMARY KEY
author Adam Chlipala <adamc@hcoop.net>
date Tue, 07 Apr 2009 16:14:31 -0400
parents e6706a1df013
children f152f215a02c
comparison
equal deleted inserted replaced
706:1fb318c17546 707:d8217b4cb617
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, _, cc) => 316 | DTable (x, n, c, s, _, pc, _, cc) =>
317 let 317 let
318 val ct = (CFfi ("Basis", "sql_table"), loc) 318 val ct = (CFfi ("Basis", "sql_table"), loc)
319 val ct = (CApp (ct, c), loc) 319 val ct = (CApp (ct, c), loc)
320 val ct = (CApp (ct, cc), loc) 320 val ct = (CApp (ct, (CConcat (pc, cc), loc)), loc)
321 in 321 in
322 pushENamed env x n ct NONE s 322 pushENamed env x n ct NONE s
323 end 323 end
324 | DSequence (x, n, s) => 324 | DSequence (x, n, s) =>
325 let 325 let