anchor.diff:  
   float_end(Cs, St, Line, Col, Toks, Ncs0) ->
       Ncs = lists:reverse(Ncs0),
  -    case catch list_to_float(Ncs) of
  +    case catch list_to_float(remove_digit_separators(Ncs)) of
           F when is_float(F) ->
               tok3(Cs, St, Line, Col, Toks, float, Ncs, F);
           _ ->
  
positive.code: -define(WHITE_SPACE(C),
          is_integer(C) andalso
           (C >= $\000 andalso C =< $\s orelse C >= $\200 andalso C =< $\240)).
  -define(DIGIT(C), C >= $0, C =< $9).
  -define(CHAR(C), is_integer(C), C >= 0).
  -define(UNICODE(C),
          is_integer(C) andalso
  
negative.code:     {more,{Cs,Col,Toks,Line,Ncs,fun scan_number/6}};
  scan_number(Cs, St, Line, Col, Toks, Ncs0) ->
      Ncs = lists:reverse(Ncs0),
      case catch list_to_integer(remove_digit_separators(Ncs)) of
          N when is_integer(N) ->
              tok3(Cs, St, Line, Col, Toks, integer, Ncs, N);
          _ ->
  