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 |