final touch refactorization reached the goal

parent 924a3d4e
......@@ -1018,7 +1018,7 @@ SCM_DEFINE(gp_gp_prune, "gp-prune", 1, 0, 0, (SCM fr),
#define FUNC_NAME s_gp_gp_unwind
{
gp_no_gc();
//gp_prune(fr, 0);
gp_prune(fr, 0);
gp_do_gc();
return SCM_UNSPECIFIED;
}
......@@ -1029,7 +1029,7 @@ SCM_DEFINE(gp_gp_prune_tail, "gp-prune-tail", 1, 0, 0, (SCM fr),
#define FUNC_NAME s_gp_gp_unwind
{
gp_no_gc();
//gp_prune(fr, 1);
gp_prune(fr, 1);
gp_do_gc();
return SCM_UNSPECIFIED;
}
......
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