anchor.diff:      end.
   
   check_line(S) ->
  -    case re:run(S, "^\\s*(//.*)?$") of
  +    case re:run(S, "^\\s*(//.*)?$", [unicode]) of
           nomatch ->
               check_command(S);
           _ ->
  
positive.code:     end.
  
  check_command(S) ->
      case re:run(S, "^:(\\w+)\\s+(.*)", [{capture, [1,2], list}]) of
          {match, ["d", ""]} ->
              {command, d};
          {match, ["p", ""]} ->
  
negative.code:     end.
  
  check_def(S) ->
      case re:run(S, "^\\s*(fun|var|dim)\\s+(\\w+)", [{capture, [2],list},
                                                      unicode]) of
          {match, [Name]} ->
              {Name, Type, Def} = get_name(parse_line(S)),
              {def, {Name, Type, Def}};
  