Parse new `var' primitive

[hcoop/domtool2.git] / src / ast.sml

diff --git a/src/ast.sml b/src/ast.sml
index d4c5727..caa7e9d 100644 (file)
--- a/src/ast.sml
+++ b/src/ast.sml
@@ -99,6 +99,7 @@ datatype decl' =
         DExternType of string
        | DExternVal of string * typ
        | DVal of string * typ option * exp
+       | DEnv of string * typ option * exp
        | DContext of string
 type decl = decl' * string option * position