Split off macro expansion from analyseValue

1 files changed, 2 insertions, 0 deletions

diff --git a/AST.hs b/AST.hs
index df946dd..f8b5e5b 100644
--- a/AST.hs
+++ b/AST.hs
@@ -13,6 +13,7 @@ data Value
     | VString String
     | VName Name
     | VQuoted Value
+    | VDefine Name Value
     | VLambda [Name] Value
     | VLet [(Name, Value)] Value
     | VBuiltin String
@@ -29,6 +30,7 @@ instance Show Value where
     show (VString s) = show s
     show (VName n) = n
     show (VQuoted e) = '\'' : show e
+    show (VDefine n v) = "(define " ++ n ++ " " ++ show v ++ ")"
     show (VLambda as v) = "(lambda (" ++ intercalate " " as ++ ") " ++ show v ++ ")"
     show (VLet ps v) = "(let (" ++ intercalate " " ["(" ++ n ++ " " ++ show w ++ ")" | (n, w) <- ps] ++ ") " ++ show v ++ ")"
     show (VBuiltin str) = "[[builtin " ++ str ++ "]]"