anchor.diff:  -record(slurp, {mod,imps=[]}).			%For slurping
       
   slurp([File], Eenv, Benv) ->
  -    Name = lfe_eval:eval(File, Eenv),		%Get file name
  +    Name = lfe_eval:expr(File, Eenv),		%Get file name
       {ok,Fs0} = lfe_io:parse_file(Name),
       St0 = #slurp{mod='-no-mod-',imps=[]},
       {Fs1,Fenv0} = lfe_macro:macro_forms(Fs0, new_env()),
  
positive.code: 
  c([F], Eenv, Benv) -> c([F,[]], Eenv, Benv);
  c([F,Os], Eenv, _) ->
      Name = lfe_eval:eval(F, Eenv),		%Evaluate arguments
      Opts = lfe_eval:eval(Os, Eenv),
      Loadm = fun (Mod) ->
  		    Base = filename:basename(Name, ".lfe"),
  		    code:purge(Mod),
  
negative.code: -export([start/0,start/1,server/0,server/1]).
  
  -import(lfe_lib, [new_env/0,add_env/2,
  		  add_vbinding/3,add_vbindings/2,is_vbound/2,get_vbinding/2,
  		  fetch_vbinding/2,update_vbinding/3,
  		  add_fbinding/4,add_fbindings/3,get_fbinding/3,add_ibinding/5,
  		  get_gbinding/3,add_mbinding/3]).
  