[Gm2] is IN not implemented yet?

[Martin Kalbfuß]

TYPE InitSet = SET OF [0..6];

PROCEDURE Init(flags : InitSet);
VAR Result : INTEGER;
    Index  : CARDINAL;
BEGIN
     FOR Index := 0 TO 6 DO
          IF Index IN flags THEN
               Result := SDL_InitSubSystem(FlagValues[Index]);
               IF Result = -1 THEN
                    EXCEPTIONS.RAISE(ExSrc, 1, "Couldn't initialize SDL");
               END;
          END;
     END;
END Init;

Hi again,

I try to check if the InitSet has a flag set with IN. He tells me 

SDL4M.mod:32:6: error: syntax error, found `IN'

Isn't it implemented, or do I make a mistake?

Thanks