diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-01-04 17:43:18 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-01-04 17:43:18 +0000 |
commit | 6f13f9cb906bf01cd3a60241aea2cfd2423382de (patch) | |
tree | f305939a041952fe1f2f98c606e72170ac4acd18 /libguile/eval.c | |
parent | da43d82227f1c286225d177a5b64e502d37bf949 (diff) | |
download | guile-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.c | 4 |
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; |