Mercurial > urweb

comparison src/elab_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 7292bcb7c02d
comparison
equal deleted inserted replaced
706:1fb318c17546 707:d8217b4cb617
1530 | DSgn (x, n, sgn) => pushSgnNamedAs env x n sgn 1530 | DSgn (x, n, sgn) => pushSgnNamedAs env x n sgn
1531 | DStr (x, n, sgn, _) => pushStrNamedAs env x n sgn 1531 | DStr (x, n, sgn, _) => pushStrNamedAs env x n sgn
1532 | DFfiStr (x, n, sgn) => pushStrNamedAs env x n sgn 1532 | DFfiStr (x, n, sgn) => pushStrNamedAs env x n sgn
1533 | DConstraint _ => env 1533 | DConstraint _ => env
1534 | DExport _ => env 1534 | DExport _ => env
1535 | DTable (tn, x, n, c, _, cc) => 1535 | DTable (tn, x, n, c, _, pc, _, cc) =>
1536 let 1536 let
1537 val ct = (CModProj (tn, [], "sql_table"), loc) 1537 val ct = (CModProj (tn, [], "sql_table"), loc)
1538 val ct = (CApp (ct, c), loc) 1538 val ct = (CApp (ct, c), loc)
1539 val ct = (CApp (ct, cc), loc) 1539 val ct = (CApp (ct, (CConcat (pc, cc), loc)), loc)
1540 in 1540 in
1541 pushENamedAs env x n ct 1541 pushENamedAs env x n ct
1542 end 1542 end
1543 | DSequence (tn, x, n) => 1543 | DSequence (tn, x, n) =>
1544 let 1544 let