Mercurial > urweb
diff 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 |
line wrap: on
line diff
--- a/src/cjrize.sml Sun Sep 13 17:02:17 2015 -0400 +++ b/src/cjrize.sml Mon Sep 21 10:16:55 2015 -0400 @@ -701,7 +701,7 @@ | L.DPolicy _ => (NONE, NONE, sm) | L.DOnError n => (SOME (L'.DOnError n, loc), NONE, sm) -fun cjrize {decls = ds, sideInfo} = +fun cjrize (ds, sideInfo) = let val (dsF, ds, ps, sm) = foldl (fn (d, (dsF, ds, ps, sm)) => let