From 6814f6b99562620e70538787b6f8d66c80f7b990 Mon Sep 17 00:00:00 2001
From: Oskari Timperi <oskari.timperi@iki.fi>
Date: Fri, 16 May 2014 00:05:37 +0300
Subject: env support to repl

---
 repl.c | 17 ++++++++++++++---
 1 file changed, 14 insertions(+), 3 deletions(-)

diff --git a/repl.c b/repl.c
index c9ddb6a..615609f 100644
--- a/repl.c
+++ b/repl.c
@@ -1,14 +1,19 @@
 #include <stdlib.h>
 #include <stdio.h>
+#include <string.h>
 
 #include "parse.h"
 #include "eval.h"
 #include "list.h"
+#include "env.h"
 #include "linenoise.h"
 
 int main(int argc, char **argv)
 {
     char *line;
+    struct list *env;
+
+    env = env_new();
 
     linenoiseSetMultiLine(0);
 
@@ -16,9 +21,15 @@ int main(int argc, char **argv)
     {
         linenoiseHistoryAdd(line);
 
-        struct list *result = eval_str(line);
-
-        print_list(result, 0);
+        if (strcmp(".clean", line) == 0)
+        {
+            env = env_new();
+        }
+        else
+        {
+            struct list *result = eval_str_env(line, env);
+            print_list(result, 0);
+        }
 
         free(line);
     }
-- 
cgit v1.2.3