From 8c0a0b0781f0d3861f85673c59d7bb3cc3dba58d Mon Sep 17 00:00:00 2001
From: FelixBrendel <felix.brendel@freenet.de>
Date: Tue, 25 Sep 2018 11:11:55 +0200
Subject: [PATCH] Fixed critiacal testing bug

We called 'new(Environment)' instead of 'create_empty_environment()'
---
 .gitignore |  4 ++++
 build.bat  |  7 +++++++
 main.c     |  1 +
 testing.c  | 16 ++++++++--------
 4 files changed, 20 insertions(+), 8 deletions(-)
 create mode 100644 build.bat

diff --git a/.gitignore b/.gitignore
index ec5d2a1..81fba18 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1 +1,5 @@
 /lisp
+/*.exe
+/*.ilk
+/*.pdb
+/.vs/
\ No newline at end of file
diff --git a/build.bat b/build.bat
new file mode 100644
index 0000000..ac698e3
--- /dev/null
+++ b/build.bat
@@ -0,0 +1,7 @@
+@echo off
+clang main.c -g -o lisp.exe --std=c99 || exit /b 1
+
+echo.
+echo --- Output Start ---
+lisp test.lsp
+echo --- Output End ---
diff --git a/main.c b/main.c
index 65f8f37..159b07e 100644
--- a/main.c
+++ b/main.c
@@ -1,3 +1,4 @@
+#define _CRT_SECURE_NO_DEPRECATE
 #include <stdio.h>
 #include <string.h>
 #include <stdlib.h>
diff --git a/testing.c b/testing.c
index 01bde00..bb15624 100644
--- a/testing.c
+++ b/testing.c
@@ -88,7 +88,7 @@ testresult test_built_in_add() {
                 four,
                 nil)));
 
-    Ast_Node* result = eval_expr(form, new(Environment));
+    Ast_Node* result = eval_expr(form, create_empty_environment());
 
     assert_no_error(error);
     assert_not_null(result);
@@ -111,7 +111,7 @@ testresult test_built_in_substract() {
                 four,
                 nil)));
 
-    Ast_Node* result = eval_expr(form, new(Environment));
+    Ast_Node* result = eval_expr(form, create_empty_environment());
 
     assert_no_error(error);
     assert_not_null(result);
@@ -135,7 +135,7 @@ testresult test_built_in_multiply() {
                 four,
                 nil)));
 
-    Ast_Node* result = eval_expr(form, new(Environment));
+    Ast_Node* result = eval_expr(form, create_empty_environment());
 
     assert_no_error(error);
     assert_not_null(result);
@@ -159,7 +159,7 @@ testresult test_built_in_divide() {
                 four,
                 nil)));
 
-    Ast_Node* result = eval_expr(form, new(Environment));
+    Ast_Node* result = eval_expr(form, create_empty_environment());
 
     assert_null(error);
     assert_not_null(result);
@@ -188,7 +188,7 @@ testresult test_built_in_if() {
     Ast_Node* result;
 
     // test *then* case
-    result = eval_expr(form, new(Environment));
+    result = eval_expr(form, create_empty_environment());
 
     assert_no_error(error);
     assert_not_null(result);
@@ -197,7 +197,7 @@ testresult test_built_in_if() {
 
     // test *else* case
     cond->value.number->value = 0;
-    result = eval_expr(form, new(Environment));
+                       result = eval_expr(form, create_empty_environment());
 
     assert_null(error);
     assert_not_null(result);
@@ -225,7 +225,7 @@ testresult test_built_in_and() {
     Ast_Node* result;
 
     // a true case
-    result = eval_expr(form, new(Environment));
+    result = eval_expr(form, create_empty_environment());
 
     assert_no_error(error);
     assert_not_null(result);
@@ -234,7 +234,7 @@ testresult test_built_in_and() {
 
     // a false case
     cond1->value.number->value = 0;
-    result = eval_expr(form, new(Environment));
+                       result = eval_expr(form, create_empty_environment());
 
     assert_no_error(error);
     assert_not_null(result);