Add more binary ops

[scheme.git] / main.scm

diff --git a/main.scm b/main.scm
index 29c03e5c9c6cfc8a97e63cd44f2d0b16aff5e9eb..289840b38db3ee0fb75d91bd42bab6297f40f977 100644 (file)
--- 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)))