diff options
author | Adam Chlipala <adamc@hcoop.net> | 2010-01-03 12:47:27 -0500 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2010-01-03 12:47:27 -0500 |
commit | 4dd9404d036d89d53e096b2fccd395deffc8b094 (patch) | |
tree | 784c36f589cbacce89a4ab23334fda77871e7961 /src/checknest.sml | |
parent | f0670d5a5a60c1bdda0277fcf74f2cf3f028c5b4 (diff) |
Proper C-side deserialization; Shake.sliceDb
Diffstat (limited to 'src/checknest.sml')
-rw-r--r-- | src/checknest.sml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/checknest.sml b/src/checknest.sml index c0f843d6..a53c7083 100644 --- a/src/checknest.sml +++ b/src/checknest.sml @@ -89,7 +89,7 @@ fun expUses globals = end | ESetval {seq, count} => IS.union (eu seq, eu count) - | EUnurlify (e, _) => eu e + | EUnurlify (e, _, _) => eu e in eu end @@ -149,7 +149,7 @@ fun annotateExp globals = (ESetval {seq = ae seq, count = ae count}, loc) - | EUnurlify (e, t) => (EUnurlify (ae e, t), loc) + | EUnurlify (e, t, b) => (EUnurlify (ae e, t, b), loc) in ae end |