Example #1
0
def display_stack_trace(port, cont):
    from pycket.prims.continuation_marks import cms_context
    context = cms_context.w_prim.call_interpret([values.W_ContinuationMarkSet(cont, values.w_default_continuation_prompt_tag)])
    if isinstance(context, values.W_Cons):
        port.write("Error Trace:\n")
        total_frames_to_show = 10
        count = 0
        while isinstance(context, values.W_Cons):
            if count >= total_frames_to_show:
                break
            port.write("-- %s\n" % context.car().tostring()[:1000])
            context = context.cdr()
            count += 1
Example #2
0
def current_cont_marks(prompt_tag, env, cont):
    from pycket.interpreter import return_value
    return return_value(values.W_ContinuationMarkSet(cont), env, cont)
Example #3
0
def continuation_marks(cont, prompt_tag):
    # TODO Prompt tag
    return values.W_ContinuationMarkSet(cont.cont, prompt_tag)