commit 7e1393c8f962e222d61a84f4f78e30ce028dc45b
author swissChili <swisschili@fastmail.com> Wed Jul 07 12:59:12 2021 -0700
committer swissChili <swisschili@fastmail.com> Wed Jul 07 12:59:12 2021 -0700
tree a90ccdaa57067c7ec7b843f636759540cd224953
parent 15f1caee9d71a13069ce1cfa652e4767b1c4c189

Add (read), improve error reporting

src/lisp/main.c

diff --git a/src/lisp/main.c b/src/lisp/main.c
index 1ece9ae..f9ad122 100644
--- a/src/lisp/main.c
+++ b/src/lisp/main.c
@@ -12,7 +12,7 @@
 	}
 
 	bool ok;
-	struct environment env = compile_file(argv[1], &ok);
+	struct environment *env = compile_file(argv[1], &ok);
 
 	if (!ok)
 	{
@@ -20,11 +20,11 @@
 		return 1;
 	}
 
-	value_t (*lisp_main)() = find_function(&env, "main")->def0;
+	value_t (*lisp_main)() = find_function(env, "main")->def0;
 
 	gc_set_base_here();
 	lisp_main();
 
 	free_all();
-	del_env(&env);
+	del_env(env);
 }