diff src/flat.sml @ 101:717b6f8d8505

First executable generated
author Adam Chlipala <adamc@hcoop.net>
date Thu, 10 Jul 2008 11:13:49 -0400
parents 198172560b73
children 5f04adf47f48
line wrap: on
line diff
--- a/src/flat.sml	Thu Jul 10 10:11:35 2008 -0400
+++ b/src/flat.sml	Thu Jul 10 11:13:49 2008 -0400
@@ -58,6 +58,7 @@
 datatype decl' =
          DVal of string * int * typ * exp
        | DFun of int * string * typ * typ * exp
+       | DPage of (string * typ) list * exp
 
 withtype decl = decl' located