$Id$

StreamMessage ::= EntryFrame
               |  ExitFrame
               |  thr(thr: thread
                      par: thread)   % parent thread; optional
               |  term(thr: thread)
               |  blocked(thr: thread)
               |  ready(thr: thread)
               |  exception(thr: thread
                            exc: value)

GlobalThreadStream ::= StreamMessage|GlobalThreadStream
