[Oberon] A test.

[Jörg]

Always check whether the variables you use need to be initialized.

This
      BEGIN
        Texts.OpenWriter(Wr)
      END Test.
should cure your problem.

Jörg

> Am 23.05.2017 um 03:10 schrieb <peter at easthope.ca> <peter at easthope.ca>:
> 
> Hi,
> 
> This module compiles in Oberon in LinuxAos (rev.6661). 
> 
> MODULE Test IN Oberon;
> IMPORT Texts, Oberon;
> VAR Wr: Texts.Writer;
> 
> PROCEDURE Test*; 
> BEGIN 
>    Texts.WriteString(Wr, "A line."); Texts.WriteLn(Wr); 
>    Texts.Append(Oberon.Log, Wr.buf)
> END Test;
> 
> BEGIN  END Test.
> 
> Executing Test.Test gives http://easthope.ca/Trap.  Reinstalling the 
> system is the only option I think of.  Any ideas?
> 
> Thanks,           ... Lyall E.
> 
> -- 
> 
> 123456789 123456789 123456789 123456789 123456789 123456789 123456789
> Tel: +1 360 639 0202                      Pender Is.: +1 250 629 3757
> http://easthope.ca/Peter.html              Bcc: peter at easthope. ca
> 
> --
> Oberon at lists.inf.ethz.ch mailing list for ETH Oberon and related systems
> https://lists.inf.ethz.ch/mailman/listinfo/oberon