<http://www.gnu.org/licenses/>.
*/
+#include "atom.h"
#include "read.h"
#include "eval.h"
#include "print.h"
pool_ptr ptop;
object *vhp_base;
heap_ptr vhp;
+vector_object globals;
// oblists (move to ASOCs once implemented)
uvector_object root;
READER_OBJCT = 64
};
+void init_standard_env ();
+
int
main ()
{
// Entire toplevel becomes `for (;;) cf->cont.fn();`
char buf[512];
ssize_t n;
+ // no GC (leak everything)
+ ptop = 1;
+ vhp = 1;
+ root = oblist_create (13);
+ globals = vector_create (64);
+ init_standard_env ();
while ((n = read (STDIN_FILENO, buf, sizeof (buf))) > 0)
{
- // mock GC (no object persistence)
- ptop = 1;
- vhp = 1;
- root = oblist_create (13);
// terminate input
assert (buf[n - 1] == '\n');
buf[n - 1] = '\0';