Add compile_tl (), compile `defun's
diff --git a/src/lisp/main.c b/src/lisp/main.c
index 1bda5f1..5c217fc 100644
--- a/src/lisp/main.c
+++ b/src/lisp/main.c
@@ -10,17 +10,10 @@
}
struct istream *is = new_stristream_nt (argv[ 1 ]);
- value_t val;
- while ( read1 (is, &val) )
- {
-// printval (val, 0);
- compile (val);
- }
+ struct environment env = compile_all (is);
+ value_t (*lisp_main) () = find_function(&env, "main")->def0;
+ lisp_main ();
- /* printf ("COMPILING\n"); */
-
- return 0;
-
- del_stristream (is);
+// del_stristream (is);
}