main.scm

   1 (load "codegen.scm")
   2
   3 (compile-to-binary
   4  (if (> (length (command-line)) 1)
   5      (call-with-input-file (cadr (command-line)) read)
   6      (read)))