reimplementation (oupsi)

old/main.c

@@ -0,0 +1,23 @@
+#include <stdio.h>
+
+#include "wscm.h"
+
+int main(void) {
+  gcinit();
+
+  O env = NIL;
+  addroot(&env);
+  setupenv(&env);
+
+  // IF
+  O code = readfile(stdin);
+  addroot(&code);
+
+  // collect();
+  println(code);
+  printf("=> ");
+  println(eval(code, env));
+
+  gcfinalize();
+  return 0;
+}