Mercurial > urweb

comparison src/cjrize.sml @ 251:326fb4686f60

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Monoize transaction identifiers; improve disjointness prover on irreducible folds; change 'query' type
author Adam Chlipala <adamc@hcoop.net>
date Sun, 31 Aug 2008 10:36:54 -0400
parents ab86aa858e6c
children 7e9bd70ad3ce
comparison
equal deleted inserted replaced
250:98f551ddd54b 251:326fb4686f60
273 val (e2, sm) = cifyExp (e2, sm) 273 val (e2, sm) = cifyExp (e2, sm)
274 in 274 in
275 ((L'.ESeq (e1, e2), loc), sm) 275 ((L'.ESeq (e1, e2), loc), sm)
276 end 276 end
277 277
278 | L.ELet _ => raise Fail "Cjrize ELet"
279
278 | L.EClosure _ => (ErrorMsg.errorAt loc "Nested closure remains in code generation"; 280 | L.EClosure _ => (ErrorMsg.errorAt loc "Nested closure remains in code generation";
279 (dummye, sm)) 281 (dummye, sm))
280 282
281 fun cifyDecl ((d, loc), sm) = 283 fun cifyDecl ((d, loc), sm) =
282 case d of 284 case d of