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/monoize.sml | |
| parent | f0670d5a5a60c1bdda0277fcf74f2cf3f028c5b4 (diff) | |
Proper C-side deserialization; Shake.sliceDb
Diffstat (limited to 'src/monoize.sml')
| -rw-r--r-- | src/monoize.sml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/monoize.sml b/src/monoize.sml index ff5a0f3a..bda6cfe4 100644 --- a/src/monoize.sml +++ b/src/monoize.sml @@ -1338,7 +1338,7 @@ fun monoExp (env, st, fm) (all as (e, loc)) = ((L'.EAbs ("c", s, (L'.TFun (un, s), loc), (L'.EAbs ("_", un, s, (L'.EUnurlify ((L'.EFfiApp ("Basis", "get_cookie", [(L'.ERel 1, loc)]), loc), - t), + t, true), loc)), loc)), loc), fm) end @@ -3255,7 +3255,8 @@ fun monoExp (env, st, fm) (all as (e, loc)) = let val t = monoType env t in - ((L'.EAbs ("v", (L'.TFfi ("Basis", "string"), loc), t, (L'.EUnurlify ((L'.ERel 0, loc), t), loc)), loc), + ((L'.EAbs ("v", (L'.TFfi ("Basis", "string"), loc), t, (L'.EUnurlify ((L'.ERel 0, loc), t, false), + loc)), loc), fm) end |