Mercurial > urweb

comparison src/cjrize.sml @ 2251:25874084bf1f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Make Mono.file a record for readability upon extension.
author Ziv Scully <ziv@mit.edu>
date Sun, 13 Sep 2015 17:02:17 -0400
parents 278e10629ba1
children e843a04499d4
comparison
equal deleted inserted replaced
2250:c275bbc41194 2251:25874084bf1f
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 (ds, sideInfo) = 704 fun cjrize {decls = 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