Begin C code generation.

1 files changed, 1 insertions, 1 deletions

diff --git a/main.lisp b/main.lisp
index 0b29edb..182d748 100644
--- a/main.lisp
+++ b/main.lisp
@@ -12,7 +12,7 @@
              ;;   (let ((program (prog-from-tokens tokens)))
              ;;     (format t "~s~%" program)
              ;;     (generate-program program :compile t)))
-             (compile-program (second args)))
+             (generate-program (make-program (second args)) :compile t))
             ((string= flag "-i")
              (interpret-program (make-program (second args))))
             ((string= flag "-p")