diff options
author | Ziv Scully <ziv@mit.edu> | 2015-09-21 10:16:55 -0400 |
---|---|---|
committer | Ziv Scully <ziv@mit.edu> | 2015-09-21 10:16:55 -0400 |
commit | 3e42cccfaef1157ca14cd102959b867c996503a9 (patch) | |
tree | f6f9a9c57702517edc66c096a50efe0a6e7dca46 /src/cjrize.sml | |
parent | 68879bbb4bf58e4709c96ba6904071ce5d24a906 (diff) |
Revert to revision 2222.
Diffstat (limited to 'src/cjrize.sml')
-rw-r--r-- | src/cjrize.sml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/cjrize.sml b/src/cjrize.sml index 870c66be..b20d6d22 100644 --- a/src/cjrize.sml +++ b/src/cjrize.sml @@ -701,7 +701,7 @@ fun cifyDecl ((d, loc), sm) = | 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 |