anchor.diff:  -define(assert_exception(Class, Term, Expr),
   ((fun () ->
       try (Expr) of
  -        __V -> .erlang:error({assert_exception,
  +        __V -> erlang:error({assert_exception,
                       [{module,     ?MODULE},
                        {line,       ?LINE},
                        {expression, (??Expr)},
  
positive.code: ((fun () ->
      case (Expr) of
      Guard -> ok;
      __V -> .erlang:error({assert_match,
                  [{module,     ?MODULE},
                   {line,       ?LINE},
                   {expression, (??Expr)},
  
negative.code:         Class ->
              case __T of
              Term ->
                  erlang:error({assert_not_exception,
                      [{module,     ?MODULE},
                       {line,       ?LINE},
                       {expression, (??Expr)},
                       {pattern,
                          "{" ++ (??Class) ++ ", " ++ (??Term) ++ ", [...]}"},
                       {unexpected_exception,
                           {__C, __T, erlang:get_stacktrace()}}] });
              _ -> ok
              end;
          _ -> ok
  