X-Git-Url: https://git.lukelau.me/?p=scheme.git;a=blobdiff_plain;f=main.scm;h=289840b38db3ee0fb75d91bd42bab6297f40f977;hp=29c03e5c9c6cfc8a97e63cd44f2d0b16aff5e9eb;hb=da18430cebcb7b813c9b29841f78d65580c91684;hpb=b936564e4a05bd4a23ec202a1c4919097ace7ca8

diff --git a/main.scm b/main.scm
index 29c03e5..289840b 100644
--- a/main.scm
+++ b/main.scm
@@ -1,6 +1,6 @@
 (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)))