Mercurial > urweb
comparison src/reduce.sml @ 607:0dd40b6bfdf3
Start of RPCification
| author | Adam Chlipala <adamc@hcoop.net> |
|---|---|
| date | Sat, 14 Feb 2009 14:07:56 -0500 |
| parents | 6d6222e045b0 |
| children | 56aaa1941dad |
comparison
equal
deleted
inserted
replaced
| 606:5145181b02fa | 607:0dd40b6bfdf3 |
|---|---|
| 364 end | 364 end |
| 365 | 365 |
| 366 | EWrite e => (EWrite (exp env e), loc) | 366 | EWrite e => (EWrite (exp env e), loc) |
| 367 | EClosure (n, es) => (EClosure (n, map (exp env) es), loc) | 367 | EClosure (n, es) => (EClosure (n, map (exp env) es), loc) |
| 368 | 368 |
| 369 | ELet (x, t, e1, e2) => (ELet (x, con env t, exp env e1, exp (UnknownE :: env) e2), loc)) | 369 | ELet (x, t, e1, e2) => (ELet (x, con env t, exp env e1, exp (UnknownE :: env) e2), loc) |
| 370 | |
| 371 | EServerCall (n, es, e) => (EServerCall (n, map (exp env) es, exp env e), loc)) | |
| 370 in | 372 in |
| 371 {con = con, exp = exp} | 373 {con = con, exp = exp} |
| 372 end | 374 end |
| 373 | 375 |
| 374 fun con namedC env c = #con (conAndExp (namedC, IM.empty)) env c | 376 fun con namedC env c = #con (conAndExp (namedC, IM.empty)) env c |