Add WIP on passing about closures

[scheme.git] / main.scm

diff --git a/main.scm b/main.scm
index 29c03e5c9c6cfc8a97e63cd44f2d0b16aff5e9eb..53daa7c73b947bd85035303146778e8dfa3543b6 100644 (file)
--- a/main.scm
+++ b/main.scm
@@ -1,6 +1,7 @@
 (load "codegen.scm")
 
 (compile-to-binary
- (if (>= (length (command-line)) 1)
+ (if (> (length (command-line)) 1)
      (call-with-input-file (cadr (command-line)) read)
-     (read)))
+     (read))
+ "a.out")