X-Git-Url: http://git.lukelau.me/?p=scheme.git;a=blobdiff_plain;f=main.scm;h=53daa7c73b947bd85035303146778e8dfa3543b6;hp=289840b38db3ee0fb75d91bd42bab6297f40f977;hb=bcab2117e8a77309c3becdda8c32b102229a6349;hpb=703d22df97baba39426f890c6badd8d272e0bf45

diff --git a/main.scm b/main.scm
index 289840b..53daa7c 100644
--- a/main.scm
+++ b/main.scm
@@ -3,4 +3,5 @@
 (compile-to-binary
  (if (> (length (command-line)) 1)
      (call-with-input-file (cadr (command-line)) read)
-     (read)))
+     (read))
+ "a.out")