problem with Meta scanner

Guy Laden (laden@math.tau.ac.il)
Sat, 29 Jun 1996 07:10:24 +0300 (GMT+0300)

Hi,

The following procedure traps with:
NIL dereference (read)
in the call to Meta.Scanner.GetObjName

Can anyone tell me whether I am doing something wrong, or
whether the problem is with the Meta module?
This is under windows 3.11, with v1.2 educational version.

PROCEDURE Test*;
VAR scanner: Meta.Scanner; name: Meta.Name;
BEGIN
scanner.ConnectToMods;
scanner.Scan;
WHILE ~scanner.eos DO
IF scanner.this.Valid() THEN
scanner.GetObjName(name);
Out.String(name)
ELSE
Out.String("Invalid item")
END;
Out.Ln;
scanner.Scan
END
END Test;

btw: Commenting out the first section of the IF statement gets rid of
the trap, and causes hundereds of 'Invalid Item' messages to appear before
the procedure completes.

Thanks,
Guy.