Copyright (C) 1994, Digital Equipment Corp.
by Steve Glassman and Stephen Harrison
INTERFACEBinaryTree ; <* 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.