Add consolidation, tie up with typechecker

[scheme.git] / rts.c

diff --git a/rts.c b/rts.c
new file mode 100644 (file)
index 0000000..0678901
--- /dev/null
+++ b/rts.c
@@ -0,0 +1,11 @@
+#include <stdio.h>
+#include <stdlib.h>
+
+__attribute__((__cdecl__))
+extern int scheme_entry();
+
+int main(int argc, const char**argv) {
+  int val = scheme_entry();
+  printf("%d\n", val);
+  return 0;
+}