mgkit/src/BinaryTree.i3


Copyright (C) 1994, Digital Equipment Corp.
 by Steve Glassman and Stephen Harrison 

INTERFACE BinaryTree;

<* PRAGMA LL *>

IMPORT GenericTree;

TYPE
  V <: GenericTree.V;
  T <: PublicT;
  PublicT = GenericTree.GenericTree OBJECT
    l, r: T;
  METHODS
    <* LL = v.mu *>
    set(v: V; lr: LR; ch: T);
  END;

  LR = {Left, Right};

END BinaryTree.