anchor.diff:  %%
   %% %CopyrightBegin%
   %%
  -%% Copyright Ericsson AB 1996-2017. All Rights Reserved.
  +%% Copyright Ericsson AB 1996-2019. All Rights Reserved.
   %%
   %% Licensed under the Apache License, Version 2.0 (the "License");
   %% you may not use this file except in compliance with the License.
  
positive.code:             scan_error({illegal,integer}, Line, Col, Line, Ncol, Cs)
      end.
  
  remove_digit_separators(Number) ->
      [C || C <- Number, C =/= $_].
  
  -define(BASED_DIGIT(C, B),
  
negative.code: scan1([$\%=C|Cs], St, Line, Col, Toks) ->
      scan_comment(Cs, St, Line, Col, Toks, [C]);
  scan1([C|Cs], St, Line, Col, Toks) when ?DIGIT(C) ->
      scan_number(Cs, St, Line, Col, Toks, [C], no_underscore);
  scan1("..."++Cs, St, Line, Col, Toks) ->
      tok2(Cs, St, Line, Col, Toks, "...", '...', 3);
  scan1(".."=Cs, _St, Line, Col, Toks) ->
  