anchor.diff:      Free = compil_table:getFreeEnv(Ref),
       case {lists:member(Name, Members), lists:member(Name, Free)} of
           {false, _ } when Ref =:= global ->
  -            io:format("Error name not found: " ++ Name);
  +            throw({unkown_name, Name});
           {false, false} ->
               compil_table:addFreeEnv(Ref,Name),
               ParentRef = compil_table:getParentEnv(Ref),
  
positive.code: 
  %% TODO:
  % * list implementation
  % * quoat
  % * heap objects for passable clojures
  % * generalize everything prim op handling
  % * test structure to run over examples
  
  -record(literal,{
            type :: systemType(),
  
negative.code:     {"@" ++ Label,""};
  
  codegen(#call{ type=RetType, target = Target,  arguments = Args }) ->
  
      CodeArgs = lists:map(fun(Arg) ->  codegen(Arg) end, Args),
      {Vars, ArgCodes}  = lists:unzip(CodeArgs),
      ArgCodeLines =  lists:concat(ArgCodes),
  