Mercurial > urweb
comparison src/core_env.sml @ 705:e6706a1df013
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 |
comparison
equal
deleted
inserted
replaced
704:70cbdcf5989b | 705:e6706a1df013 |
---|---|
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, _, cc) => |
317 let | 317 let |
318 val t = (CApp ((CFfi ("Basis", "sql_table"), loc), c), loc) | 318 val ct = (CFfi ("Basis", "sql_table"), loc) |
319 val ct = (CApp (ct, c), loc) | |
320 val ct = (CApp (ct, cc), loc) | |
319 in | 321 in |
320 pushENamed env x n t NONE s | 322 pushENamed env x n ct NONE s |
321 end | 323 end |
322 | DSequence (x, n, s) => | 324 | DSequence (x, n, s) => |
323 let | 325 let |
324 val t = (CFfi ("Basis", "sql_sequence"), loc) | 326 val t = (CFfi ("Basis", "sql_sequence"), loc) |
325 in | 327 in |