anchor.diff:      foldl(fun (F, {_,S}) -> eval_form_1(F, S) end,
             {[],St}, Eforms);
   eval_form_1(['extend-module'|_], St) ->         %Maybe from macro expansion
  +    {[],St};
  +eval_form_1(['eval-when-compile'|_], St) ->	%Maybe from macro expansion
  +    %% We can happily ignore this.
       {[],St};
   eval_form_1([set|Rest], St0) ->
       {Value,St1} = set(Rest, St0),
  
positive.code:             list_errors(Es),
              list_warnings(Ws)
      end,
      set_1([Epat|Rest], St).
  
  set_1([Pat,['when'|_]=G,Exp], #state{curr=Ce0}=St) ->
      Val = lfe_eval:expr(Exp, Ce0),              %Evaluate expression
      case lfe_eval:match_when(Pat, Val, [G], Ce0) of
          {yes,_,Bs} ->
              Ce1 = foldl(fun ({N,V}, E) -> add_vbinding(N, V, E) end,
                          Ce0, Bs),
              {Val,St#state{curr=Ce1}};
          no -> erlang:error({badmatch,Val})
      end;
  set_1([Pat,Exp], #state{curr=Ce0}=St) ->
      Val = lfe_eval:expr(Exp, Ce0),              %Evaluate expression
      case lfe_eval:match(Pat, Val, Ce0) of
          {yes,Bs} ->
              Ce1 = foldl(fun ({N,V}, E) -> add_vbinding(N, V, E) end,
                          Ce0, Bs),
              {Val,St#state{curr=Ce1}};
          no -> erlang:error({badmatch,Val})
      end;
  set_1(_, _) -> erlang:error({bad_form,'set'}).
  
  %% unslurp(State) -> {ok,State}.
  %% slurp(File, State) -> {{ok,Mod},State}.
  %%  Load in a file making all functions available. The module is
  %%  loaded in an empty environment and that environment is finally
  %%  added to the standard current environment. We could not use the
  %%  compiler here as we need the macro environment.
  
  -record(slurp, {mod,imps=[]}).                  %For slurping
  
  
negative.code: -import(lfe_env, [new/0,add_env/2,
                    add_vbinding/3,add_vbindings/2,is_vbound/2,get_vbinding/2,
                    fetch_vbinding/2,del_vbinding/2,
                    add_fbinding/4,add_fbindings/2,get_fbinding/3,add_ibinding/5,
                    get_gbinding/3,add_mbinding/3]).
  
  -import(orddict, [store/3,find/2]).
  