a commit

parent 0d29dbd4
......@@ -846,7 +846,7 @@ SCM_DEFINE(gp_gp_store_state, "gp-store-state", 1, 0, 0, (SCM s),
}
#undef FUNC_NAME
//#define DB(X) X
#define DB(X) X
static inline SCM * gp_get_branch(SCM *p, SCM *ci, struct gp_stack *gp)
{
......@@ -936,6 +936,7 @@ static inline SCM * gp_get_branch(SCM *p, SCM *ci, struct gp_stack *gp)
if(pp == d)
{
gp_debug0("found it\n");
*p = pp;
return ci;
}
......@@ -952,6 +953,7 @@ static inline SCM * gp_get_branch(SCM *p, SCM *ci, struct gp_stack *gp)
if(SCM_CONSP(pp))
{
gp_debug0("next\n");
pp = SCM_CDR(pp);
}
else
......@@ -961,8 +963,7 @@ static inline SCM * gp_get_branch(SCM *p, SCM *ci, struct gp_stack *gp)
}
if(SCM_CONSP(d))
{
{
d = SCM_CDR(d);
}
else
......@@ -1232,7 +1233,7 @@ static void gp_restore_state(SCM data, struct gp_stack *gp, SCM K)
{
if(SCM_UNPACK(SCM_CAR(*ci)) == gp_save_tag)
{
if(pp_x != *ci)
if(pp_x != *ci)
fail = 1;
}
else if(SCM_UNPACK(SCM_CAR(*ci)) == gp_redo_tag)
......@@ -1254,9 +1255,6 @@ static void gp_restore_state(SCM data, struct gp_stack *gp, SCM K)
if(fail)
{
#define DB(X) X
gp_format1("pp_x: ~a",pp_x);
#define DB(X)
scm_misc_error("gp_restore_state","branch point is wrong ~a ci ~a ~a ~a",
scm_list_4(SCM_I_MAKINUM(fail), *ci, pp_x, path));
}
......@@ -1295,7 +1293,7 @@ static void gp_restore_state(SCM data, struct gp_stack *gp, SCM K)
gp_debug0("leave reinstate\n");
}
//#define DB(X)
#define DB(X)
SCM_DEFINE(gp_gp_restore_state, "gp-restore-state", 2, 0, 0, (SCM cont, SCM K),
"restore a continuation point")
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment