From f366ed28ee32b05c9412ec362b4e73dbe20e6c38 Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Sat, 19 May 2001 00:21:41 +0000 Subject: [PATCH] (narrow_stack): Do not call `scm_system_module_env_p' when deprecated features are excluded from Guile. --- libguile/stacks.c | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/libguile/stacks.c b/libguile/stacks.c index 63bbda07b..61c262453 100644 --- a/libguile/stacks.c +++ b/libguile/stacks.c @@ -360,7 +360,10 @@ narrow_stack (SCM stack,int inner,SCM inner_key,int outer,SCM outer_key) SCM m = s->frames[i].source; if ( SCM_MEMOIZEDP (m) && SCM_NIMP (SCM_MEMOIZED_ENV (m)) - && SCM_FALSEP (scm_system_module_env_p (SCM_MEMOIZED_ENV (m)))) +#if SCM_DEBUG_DEPRECATED == 0 + && SCM_FALSEP (scm_system_module_env_p (SCM_MEMOIZED_ENV (m))) +#endif + ) { /* Back up in order to include any non-source frames */ while (i > 0