From bffeb0e5a10ae58b8f7c3f5249b3665373236e21 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Thu, 6 Nov 2008 12:08:41 -0500
Subject: Reading cookies works

---
 src/cjrize.sml | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'src/cjrize.sml')

diff --git a/src/cjrize.sml b/src/cjrize.sml
index db2bd48f..6c34923b 100644
--- a/src/cjrize.sml
+++ b/src/cjrize.sml
@@ -412,6 +412,13 @@ fun cifyExp (eAll as (e, loc), sm) =
             ((L'.ENextval {seq = e, prepared = NONE}, loc), sm)
         end
 
+      | L.EUnurlify (e, t) =>
+        let
+            val (e, sm) = cifyExp (e, sm)
+            val (t, sm) = cifyTyp (t, sm)
+        in
+            ((L'.EUnurlify (e, t), loc), sm)
+        end
 
 fun cifyDecl ((d, loc), sm) =
     case d of
-- 
cgit v1.2.3