Mercurial > urweb
diff src/prepare.sml @ 1112:7a31e0cf25e9
Proper C-side deserialization; Shake.sliceDb
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Sun, 03 Jan 2010 12:47:27 -0500 |
parents | 0657e5adc938 |
children | acabf3935060 |
line wrap: on
line diff
--- a/src/prepare.sml Sat Jan 02 14:54:15 2010 -0500 +++ b/src/prepare.sml Sun Jan 03 12:47:27 2010 -0500 @@ -281,11 +281,11 @@ ((ESetval {seq = e1, count = e2}, loc), st) end - | EUnurlify (e, t) => + | EUnurlify (e, t, b) => let val (e, st) = prepExp (e, st) in - ((EUnurlify (e, t), loc), st) + ((EUnurlify (e, t, b), loc), st) end fun prepDecl (d as (_, loc), st) =