X-Git-Url: https://git.lukelau.me/?a=blobdiff_plain;f=main.scm;h=53daa7c73b947bd85035303146778e8dfa3543b6;hb=6684c39cf92a0fa6c21339c6fec8a6e4cf4f463d;hp=29c03e5c9c6cfc8a97e63cd44f2d0b16aff5e9eb;hpb=05e0f42eb4a44694b96297ce50b5a27eb6bb9f71;p=scheme.git

diff --git a/main.scm b/main.scm
index 29c03e5..53daa7c 100644
--- 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")