removed unnecessary logging
svn: r16845
This commit is contained in:
parent
72f4eec8c8
commit
4920613774
|
@ -73,7 +73,6 @@ Scheme_Object *PRIM_APPLY_NAME(Scheme_Object *rator,
|
||||||
GC_CAN_IGNORE Scheme_Object *v;
|
GC_CAN_IGNORE Scheme_Object *v;
|
||||||
MZ_CONT_MARK_POS -= 2;
|
MZ_CONT_MARK_POS -= 2;
|
||||||
|
|
||||||
LOG_PRIM_W_NAME("_scheme_apply");
|
|
||||||
|
|
||||||
v = _scheme_apply(rator, argc, argv);
|
v = _scheme_apply(rator, argc, argv);
|
||||||
MZ_CONT_MARK_POS += 2;
|
MZ_CONT_MARK_POS += 2;
|
||||||
|
@ -82,7 +81,6 @@ Scheme_Object *PRIM_APPLY_NAME(Scheme_Object *rator,
|
||||||
#else
|
#else
|
||||||
# if PRIM_CHECK_VALUE
|
# if PRIM_CHECK_VALUE
|
||||||
{
|
{
|
||||||
LOG_PRIM_W_NAME("_scheme_apply_multi");
|
|
||||||
|
|
||||||
GC_CAN_IGNORE Scheme_Object *v;
|
GC_CAN_IGNORE Scheme_Object *v;
|
||||||
MZ_CONT_MARK_POS -= 2;
|
MZ_CONT_MARK_POS -= 2;
|
||||||
|
@ -91,7 +89,6 @@ Scheme_Object *PRIM_APPLY_NAME(Scheme_Object *rator,
|
||||||
return v;
|
return v;
|
||||||
}
|
}
|
||||||
# else
|
# else
|
||||||
LOG_PRIM_W_NAME("_scheme_tail_apply");
|
|
||||||
|
|
||||||
return _scheme_tail_apply(rator, argc, argv);
|
return _scheme_tail_apply(rator, argc, argv);
|
||||||
# endif
|
# endif
|
||||||
|
|
Loading…
Reference in New Issue
Block a user