From 2396dd1bd2bdaeb7608d88bbb2f890b5788852c0 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Sat, 16 May 2009 16:02:17 -0400
Subject: Mutual datatypes through Cjrize

---
 src/cjr.sml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/cjr.sml')

diff --git a/src/cjr.sml b/src/cjr.sml
index 6728e5c8..2b81de1a 100644
--- a/src/cjr.sml
+++ b/src/cjr.sml
@@ -100,7 +100,7 @@ withtype exp = exp' located
 
 datatype decl' =
          DStruct of int * (string * typ) list
-       | DDatatype of datatype_kind * string * int * (string * int * typ option) list
+       | DDatatype of (datatype_kind * string * int * (string * int * typ option) list) list
        | DDatatypeForward of datatype_kind * string * int
        | DVal of string * int * typ * exp
        | DFun of string * int * (string * typ) list * typ * exp
-- 
cgit v1.2.3