Trees: Leaf Nodes

(define leaf-tag "Leaf")

(define (make-leaf . coords)
  ;; MAKE-LEAF: (Sch-Num*) -> Leaf
  (cons leaf-tag coords))

(define (is-leaf? obj)
  (and (pair? obj)
       (eq? (car obj) leaf-tag)))

(define (leaf.point leaf) (cdr leaf))

Jim Miller