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.