Add load(), load_library(), lisp std
diff --git a/src/lisp/main.c b/src/lisp/main.c
index 94bdeaf..1ece9ae 100644
--- a/src/lisp/main.c
+++ b/src/lisp/main.c
@@ -1,6 +1,7 @@
#include "compiler.h"
#include "lisp.h"
#include "gc.h"
+#include "plat/plat.h"
int main(int argc, char **argv)
{
@@ -10,15 +11,15 @@
return 1;
}
- struct istream *is = new_fistream(argv[1], false);
+ bool ok;
+ struct environment env = compile_file(argv[1], &ok);
- if (is == NULL)
+ if (!ok)
{
fprintf(stderr, "Could not open %s\n", argv[1]);
return 1;
}
- struct environment env = compile_all(is);
value_t (*lisp_main)() = find_function(&env, "main")->def0;
gc_set_base_here();
@@ -26,5 +27,4 @@
free_all();
del_env(&env);
- del_fistream(is);
}