anchor.diff:      Opts = expand_opts(Opts0),
       case read_source_1(Name, Opts) of
   	{ok, Forms} ->
  -	    check_forms(Forms, Name),
  +	    check_forms(Forms, Name, Opts),
   	    Forms;
   	{error, R} ->
   	    edoc_report:error({"error reading file '~ts'.",
  
positive.code: fll(L, _LastLine, Ts) ->
      lists:reverse(L, Ts).
  
  check_forms(Fs, Name) ->
      Fun = fun (F) ->
  	     case erl_syntax:type(F) of
  		 error_marker ->
  		     case erl_syntax:error_marker_info(F) of
  			 {L, M, D} ->
  			     edoc_report:error(L, Name, {format_error, M, D});
  			 Other ->
  			     edoc_report:report(Name, "unknown error in "
                                                  "source code: ~w.", [Other])
  
negative.code: 	  end,
      lists:foreach(Fun, Fs).
  
  helpful_message(Name) ->
      Ms = ["If the error is caused by too exotic macro",
            "definitions or uses of macros, adding option",
            "{preprocess, true} can help. See also edoc(3)."],
      lists:foreach(fun(M) -> edoc_report:report(Name, M, []) end, Ms).
  
  %% @spec get_doc(File::filename()) -> {ModuleName, edoc_module()}
  %% @equiv get_doc(File, [])
  