anchor.diff:  
   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),
  +    Name = lfe_eval:expr(F, Eenv),		%Evaluate arguments
  +    Opts = lfe_eval:expr(Os, Eenv),
       Loadm = fun (Mod) ->
   		    Base = filename:basename(Name, ".lfe"),
   		    code:purge(Mod),
  
positive.code: -record(slurp, {mod,imps=[]}).			%For slurping
      
  slurp([File], Eenv, Benv) ->
      Name = lfe_eval:eval(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()),
  
negative.code:     macroexpand_1(S, Eenv, Benv);
  eval_internal(['macroexpand-all',S], Eenv, Benv) ->
      macroexpand_all(S, Eenv, Benv);
  eval_internal([set|Args], Eenv, Benv) ->	%Set variables in shell
      set(Args, Eenv, Benv);
  eval_internal(_, _, _) -> no.			%Not an internal function
  
  %% c(Args, EvalEnv, BaseEnv) -> {yes,Res,Env}.
  