added interpreter again

1 files changed, 2 insertions, 2 deletions

diff --git a/main.lisp b/main.lisp
index 182d748..a04fa05 100644
--- a/main.lisp
+++ b/main.lisp
@@ -13,12 +13,12 @@
              ;;     (format t "~s~%" program)
              ;;     (generate-program program :compile t)))
              (generate-program (make-program (second args)) :compile t))
-            ((string= flag "-i")
-             (interpret-program (make-program (second args))))
             ((string= flag "-p")
              (format t "~a" (make-program (second args))))
             ((string= flag "-t")
              (run-tests))
+            ((string= flag "-s")
+             (simulate-program (make-program (second args))))
             (t (format t "~a is not a valid flag~%" flag))))))
 
 ;; (defun make-exe ()