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

(in-package :hu.dwim.presentation)

;;;;;;
;;; tree/component

(def special-variable *tree*)

(def special-variable *tree-level*)

(def (component e) tree/component ()
  ())

(def component-environment tree/component
  (bind ((*tree* -self-)
         (*tree-level* -1))
    (call-next-method)))