added interpreter again
This commit is contained in:
@@ -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 ()
|
||||
|
||||
Reference in New Issue
Block a user