anchor.diff:        if isStringPostfix(reader.next^) then
           reader.next;
         addToken(ltkString);
  +      if callBackDoStop then exit;
         continue;
       end;
   
  
positive.code:     data: string;
    end;
  
    (*****************************************************************************
     * List of lexer tokens
     *)
  
negative.code:           identifier += reader.head^;
          end;
          addToken(ltkNumber);
          if callBackDoStop then exit;
          continue;
        end
        else reader.previous;
  