From 3316f3c317e587a5fc2ecf38f061a72b48e3b94e Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Sun, 13 Jul 2008 10:17:06 -0400
Subject: Remove closure conversion in favor of zany fun with modules, which
 also replaces 'page'

---
 src/expl.sml | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/expl.sml')

diff --git a/src/expl.sml b/src/expl.sml
index bf40a511..d6ceb35b 100644
--- a/src/expl.sml
+++ b/src/expl.sml
@@ -73,6 +73,8 @@ datatype exp' =
        | EField of exp * con * { field : con, rest : con }
        | EFold of kind
 
+       | EWrite of exp
+
 withtype exp = exp' located
 
 datatype sgn_item' =
@@ -98,7 +100,7 @@ datatype decl' =
        | DSgn of string * int * sgn
        | DStr of string * int * sgn * str
        | DFfiStr of string * int * sgn
-       | DPage of con * exp
+       | DExport of int * sgn * str
 
      and str' =
          StrConst of decl list
-- 
cgit v1.2.3