Split out compiler into codegen and main

[scheme.git] / main.scm

diff --git a/main.scm b/main.scm
new file mode 100644 (file)
index 0000000..29c03e5
--- /dev/null
+++ b/main.scm
@@ -0,0 +1,6 @@
+(load "codegen.scm")
+
+(compile-to-binary
+ (if (>= (length (command-line)) 1)
+     (call-with-input-file (cadr (command-line)) read)
+     (read)))