file: 01-C-event.t package: muf status: alpha
This function is invoked by ]error,
]cerror and ]warn to actually
announce a event, hence may be customized
to modify the way such announcements are done.
The ]reportEvent function is currently implemented as:
: ]reportEvent { [] $ -> } -> ostream
:formatString |get -> formatString
formatString if
[ "Sorry: %s\n" formatString | ]print ostream writeStream
else
:event |get -> event
[ "Sorry: %s\n" event$s.name | ]print ostream writeStream
fi
]pop
;
Go to the first, previous, next, last section, table of contents.