Mercurial > urweb
comparison src/cjrize.sml @ 2252:e843a04499d4
Revert to revision 2222.
author | Ziv Scully <ziv@mit.edu> |
---|---|
date | Mon, 21 Sep 2015 10:16:55 -0400 |
parents | 25874084bf1f |
children | 8428c534913a |
comparison
equal
deleted
inserted
replaced
2251:25874084bf1f | 2252:e843a04499d4 |
---|---|
699 | _ => (ErrorMsg.errorAt loc "Initializer has not been fully determined"; | 699 | _ => (ErrorMsg.errorAt loc "Initializer has not been fully determined"; |
700 (NONE, NONE, sm))) | 700 (NONE, NONE, sm))) |
701 | L.DPolicy _ => (NONE, NONE, sm) | 701 | L.DPolicy _ => (NONE, NONE, sm) |
702 | L.DOnError n => (SOME (L'.DOnError n, loc), NONE, sm) | 702 | L.DOnError n => (SOME (L'.DOnError n, loc), NONE, sm) |
703 | 703 |
704 fun cjrize {decls = ds, sideInfo} = | 704 fun cjrize (ds, sideInfo) = |
705 let | 705 let |
706 val (dsF, ds, ps, sm) = foldl (fn (d, (dsF, ds, ps, sm)) => | 706 val (dsF, ds, ps, sm) = foldl (fn (d, (dsF, ds, ps, sm)) => |
707 let | 707 let |
708 val (dop, pop, sm) = cifyDecl (d, sm) | 708 val (dop, pop, sm) = cifyDecl (d, sm) |
709 | 709 |