Код из StdLog:
## Код:
```
PROCEDURE* Guard (o: ANYPTR): BOOLEAN;
   BEGIN
      RETURN
         (o # NIL) &
         ~(      (o IS TextModels.Model) & (o = text)
            OR   (o IS Stores.Domain) & (o = text.Domain())
            OR   (o IS TextViews.View) & (o(TextViews.View).ThisModel() = text)
         )
   END Guard;

   PROCEDURE* ClearBuf;
      VAR subBuf: TextModels.Model;
   BEGIN
      subBuf := subOut.rider.Base(); subBuf.Delete(0, subBuf.Length())
   END ClearBuf;

   PROCEDURE* FlushBuf;
      VAR buf: TextModels.Model;
   BEGIN
      buf := subOut.rider.Base();
      IF buf.Length() > 0 THEN
         IF ~Log.synch THEN Open() END;
         text.Append(buf)
      END
   END FlushBuf;

   PROCEDURE* SubFlush;
   BEGIN
      IF Log.synch THEN
         FlushBuf;
         IF Log.force THEN Views.RestoreDomain(text.Domain()) END
      END;
   END SubFlush;
```


Вот ещё одна необычная штука. Обратите внимание на звёздочки.