From 2a351374a7b538ff2a69ad96afb7d7afb10d9487 Mon Sep 17 00:00:00 2001
From: Ivy <adrisolgo7373@gmail.com>
Date: Sat, 30 Jan 2021 00:43:52 +0100
Subject: [PATCH] Strict evaluation when evaluating single variables

---
 src/Evaluator.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Evaluator.hs b/src/Evaluator.hs
index 8eb7ab7..668cbe6 100644
--- a/src/Evaluator.hs
+++ b/src/Evaluator.hs
@@ -15,8 +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 (SetE v expr) = (M.insert v expr env, NilE)
+eval env (VarE v)      = eval env $ env M.! v
+eval env (SetE v expr) = (M.insert v expr env, expr)
 eval env NilE          = (env, NilE)
 
 --apply :: Proc -> Args -> Expr