def eval_sequence(seq, env, cont): def eval_instruction(accu, instruct, k): scheme_eval(instruct, env, lambda inst_eval: k(inst_eval)) cps_foldl(eval_instruction, cont, None, seq)
def make_args_list(args, env, cont): cps_foldl(make_append_arg(env), cont, [], args)