Mercurial > urweb

diff src/prepare.sml @ 1112:7a31e0cf25e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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) =