;;; -*- mode: Lisp; Syntax: Common-Lisp; -*-
;;;
;;; Copyright (c) 2009 by the authors.
;;;
;;; See LICENCE for details.

(in-package :hu.dwim.excosy)

;;;;;;
;;; Evaluator

(def (function e) evaluate-excosy (machine ast)
  ;; TODO:
  (if #t
      (interpret-excosy machine ast)
      (execute-excosy machine (compile-excosy machine ast))))