Begin C code generation.

2024-08-08 17:13:29 +03:00
parent b215590395
commit 1056b74b11
3 changed files with 168 additions and 74 deletions
--- 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")