anchor.diff:      try
   	lfe_eval:expr([main,[quote,Args]], Fenv)
       catch
  +	%% Catch all exceptions in the code.
   	Class:Error ->
  -	    St = erlang:get_stacktrace(),
  +	    St = erlang:get_stacktrace(),	%Need to get this first
   	    Sf = fun (_) -> false end,
   	    Ff = fun (T, I) -> lfe_io:prettyprint1(T, 15, I, 80) end,
   	    Cs = lfe_lib:format_exception(Class, Error, St, Sf, Ff, 1),
  
positive.code: %%  make lfe_lint happy.
  
  check_code(Fs, File, _, _) ->
      case lfe_lint:module([{['define-module',dummy],1}|Fs], []) of
  	{ok,Ws} ->
  	    list_warnings(File, Ws);
  	{error,Es,Ws} -> error_exit(File, Es, Ws)
  
negative.code: 		halt(?ERROR_STATUS)
  	end
      catch
  	%% Catch program errors.
  	throw:Str ->
  	    lfe_io:format("lfescript: ~s\n", [Str]),
  	    halt(?ERROR_STATUS);
  	_:Reason ->
  	    Stack = erlang:get_stacktrace(),	%Need to get this first
  	    lfe_io:format("lfescript: Internal error: ~p\n", [Reason]),
  	    lfe_io:format("~p\n", [Stack]),
  	    halt(?ERROR_STATUS)
      end.
  
  %% parse_check_run(FileName, Args, Options) -> no_return().
  