Split out compiler into codegen and main

diff --git a/compiler.scm b/codegen.scm
similarity index 100%
rename from compiler.scm
rename to codegen.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)))

diff --git a/sample.scm b/sample.scm
new file mode 100644 (file)
index 0000000..75e6043
--- /dev/null
+++ b/sample.scm
@@ -0,0 +1 @@
+(let ((a 3) (b 4)) (+ a b))