extern "C" closure builtin_function_reapply(OperationArgs& Args)
{
int index1 = Args.reference(0).as_index_var();
int R1 = Args.current_closure().lookup_in_env( index1 );
int index2 = Args.reference(1).as_index_var();
int R2 = Args.current_closure().lookup_in_env( index2 );
expression_ref apply_E;
{
expression_ref fE = index_var(1);
expression_ref argE = index_var(0);
apply_E = (fE, argE);
}
// %1 %0 {R1,R2}
int apply_reg = Args.allocate({apply_E,{R1, R2}});
// FIXME - aren't we trying to eliminate general evaluation of regs that aren't children? See below:
// Evaluate the newly create application reg - and depend upon it!
if (Args.evaluate_changeables())
Args.evaluate_reg_to_object(apply_reg);
return {index_var(0),{apply_reg}};
}
extern "C" closure builtin_function_seq(OperationArgs& Args)
{
Args.evaluate_slot_no_record(0);
int index = Args.reference(1).as_index_var();
int R = Args.current_closure().lookup_in_env( index);
return {index_var(0),{R}};
}
