Mercurial > urweb

diff src/cjrize.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 72670131dace
children c316ca3c9ec6
line wrap: on
line diff
--- a/src/cjrize.sml	Sat Jan 02 14:54:15 2010 -0500
+++ b/src/cjrize.sml	Sun Jan 03 12:47:27 2010 -0500
@@ -476,12 +476,12 @@
             ((L'.ESetval {seq = e1, count = e2}, loc), sm)
         end
 
-      | L.EUnurlify (e, t) =>
+      | L.EUnurlify (e, t, b) =>
         let
             val (e, sm) = cifyExp (e, sm)
             val (t, sm) = cifyTyp (t, sm)
         in
-            ((L'.EUnurlify (e, t), loc), sm)
+            ((L'.EUnurlify (e, t, b), loc), sm)
         end
 
       | L.EJavaScript _ => raise Fail "Cjrize: EJavaScript remains"