Now when a var is evaluated, the new evaluation replaces the old

cherry-lisp.cabal

@@ -19,12 +19,11 @@ executable cherry
   default-language:    Haskell2010
 
   other-modules:       ExprType,
-                       ExprParser,
+                       Parser,
                        TokenType,
-                       TokenParser,
+                       Lexer,
                        Evaluator,
-                       ParserUtils,
+                       ParserUtils
-                       TokenParser
 
   build-depends:       base >= 4.7 && < 5,
                        containers,

src/Evaluator.hs

@@ -4,11 +4,9 @@ import qualified Data.Map as M
 import ExprType
 
 type Env = M.Map String Expr
-type Proc = String
 
 -- TODO: create a separated file for builtinProcs
 -- TODO: create a BuiltinProc or something like that in data Expr, and make + a builtin proc
--- TODO: create enviroments
 
 base :: Env
 base = M.fromList [
@@ -17,7 +15,8 @@ base = M.fromList [
 
 eval :: Env -> Expr -> (Env, Expr)
 eval env (IntE x)      = (env, IntE x)
-eval env (VarE v)      = (env, env M.! v)
+eval env (VarE v)      = (M.insert v nExpr nEnv, nExpr)
+  where (nEnv, nExpr) = eval env $ env M.! v
 eval env (SetE v expr) = (M.insert v expr env, NilE)
 eval env NilE          = (env, NilE)
 

src/ExprType.hs

@@ -4,9 +4,9 @@ data Expr = IntE Integer
           | VarE String
           | ProcedureE String [Expr]
           | SetE String Expr
-          | NilE
+          | NilE deriving (Show)
 
-instance Show Expr where
+-- instance Show Expr where
-  show (IntE x) = show x
+--   show (IntE x) = show x
-  show (VarE x) = x ++ " ; var"
+--   show (VarE x) = x ++ " ; var"
-  show NilE     = "nil"
+--   show NilE     = "nil"

src/Lexer.hs

@@ -1,4 +1,4 @@
-module TokenParser where
+module Lexer where
 
 import Text.ParserCombinators.Parsec
 import ParserUtils

src/Main.hs

@@ -1,7 +1,7 @@
 module Main where
 
 import Evaluator
-import ExprParser
+import Parser
 import Control.Monad
 import Data.Maybe
 import System.Console.Haskeline

src/Parser.hs

@@ -1,8 +1,8 @@
-module ExprParser where
+module Parser where
 
 import Text.Parsec
 import Text.Parsec.String
-import TokenParser
+import Lexer
 import TokenType
 import ExprType