anchor.diff:  %% Characters
   #\\(x{H}+|.)    :    char_token(string:substr(TokenChars, 3), TokenLine).
   %% String
  -"(\\x{H}+;|\\.|[^"])*" :
  +"(\\x{H}+;|\\.|[^"\\])*" :
               %% Strip quotes.
               S = string:substr(TokenChars, 2, TokenLen - 2),
               {token,{string,TokenLine,chars(S)}}.
   %% Symbols
  -\|(\\x{H}+;|\\.|[^|])*\| :
  +\|(\\x{H}+;|\\.|[^|\\])*\| :
               %% Strip quotes.
               S = string:substr(TokenChars, 2, TokenLen - 2),
               symbol_token(chars(S), TokenLine).
  
positive.code: %% Author  : Robert Virding
  %% Purpose : Token definitions for Lisp Flavoured Erlang.
  
  -import(string, [substr/2,substr/3]).
  
  %% symbol_token(Chars, Line) -> {token,{symbol,Line,Symbol}} | {error,E}.
  %% Build a symbol from list of legal characters, else error.
  
negative.code: O    = [0-7]
  D    = [0-9]
  H    = [0-9a-fA-F]
  B36  = [0-9a-zA-Z]
  U    = [A-Z]
  L    = [a-z]
  A    = ({U}|{L})
  DEL  = [][()}{";\000-\s]
  SYM  = [^][()}{";\000-\s\177-\237]
  SSYM = [^][()}{"|;#`',\000-\s\177-\237]
  WS   = ([\000-\s]|;[^\n]*)
  
  Rules.
  %% Bracketed Comments using #| foo |#
  