The key function in cloforth

cloforth_repl

(defn repl [env]
  (let [dictionary (:dictionary env)]
    (if (:quit env)
      env
      (let [r (:in env)
            compiled (comp/compile-statement r dictionary)]
        (if (and (coll? compiled) (empty? compiled))
          env
          (let [result (exec/execute-program env compiled)  ;; Get the lazy sequence of states
                new-env (last result)]                      ;; ... and then the last one
            (recur new-env)))))))