summaryrefslogtreecommitdiff
path: root/libguile/eval.c
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>2000-01-04 17:43:18 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>2000-01-04 17:43:18 +0000
commit6f13f9cb906bf01cd3a60241aea2cfd2423382de (patch)
treef305939a041952fe1f2f98c606e72170ac4acd18 /libguile/eval.c
parentda43d82227f1c286225d177a5b64e502d37bf949 (diff)
downloadguile-6f13f9cb906bf01cd3a60241aea2cfd2423382de.tar.gz
* eval.c (SCM_CEVAL): Optimization: Reverse order of
scm_stack_checking_enabled_p and SCM_STACK_OVERFLOW_P => speed gain 4-6% for eval1 benchmark on one machine. (Thanks to Brad Knotwell.)
Diffstat (limited to 'libguile/eval.c')
-rw-r--r--libguile/eval.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/eval.c b/libguile/eval.c
index 27ac70b9f..a6b816241 100644
--- a/libguile/eval.c
+++ b/libguile/eval.c
@@ -1832,8 +1832,8 @@ SCM_CEVAL (SCM x, SCM env)
scm_last_debug_frame = &debug;
#endif
#ifdef EVAL_STACK_CHECKING
- if (SCM_STACK_OVERFLOW_P ((SCM_STACKITEM *) &proc)
- && scm_stack_checking_enabled_p)
+ if (scm_stack_checking_enabled_p
+ && SCM_STACK_OVERFLOW_P ((SCM_STACKITEM *) &proc))
{
#ifdef DEVAL
debug.info->e.exp = x;