Example #1
0
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)
Example #2
0
def make_args_list(args, env, cont):
  cps_foldl(make_append_arg(env), cont, [], args)