From 9f9956e8893f16f4bc4b261597e03877830d1c6f Mon Sep 17 00:00:00 2001 From: mRnea Date: Fri, 9 Aug 2024 15:01:12 +0300 Subject: added interpreter again --- main.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'main.lisp') 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 () -- cgit v1.2.3