-- COGDebugImpl.mesa: debugging tools for COG
-- last modified by Stolfi October 11, 1982 11:58 am
-- compile COGDebugImpl
DIRECTORY
IO USING [STREAM, CreateViewerStreams],
Rope USING [ROPE],
COGDebug;
COGDebugImpl: PROGRAM
IMPORTS IO
EXPORTS COGDebug =
BEGIN
OPEN
IO, Rope;
in, out: PUBLIC STREAM;
Error: PUBLIC ERROR [what: ROPE] = CODE;
[in, out] ← CreateViewerStreams["COG DEBUGGING"]
END...