(in-package #:cl-forth)

;; For debugging purposes.
(defparameter *interpreter*
    (make-instance 'interpreter))

(defun main ()
  (let ((interp *interpreter*)
        (input ""))
    (format t "Welcome to CL-Forth! Type your commands below (type 'exit' to quit).~%")
    (loop
      (format t "CL-FORTH) ")
      (finish-output)
      (setf input (read-line))
      (if (string= input "exit")
          (progn
            (format t "Exiting CL-Forth. Goodbye!~%")
            (return))
          (progn
            (handler-case
                (interpret interp input)
              (unknown-word-error (e)
                (format t "Error: Unknown word '~a'~%" (token-of e)))
              (stack-underflow (e)
                (declare (ignore e))
                (format t "Error: Stack underflow - cannot pop from an empty stack.~%"))))))))