mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 22:10:21 +02:00
Code Activity

(narrow_stack): Do not call `scm_system_module_env_p'

Browse source 
when deprecated features are excluded from Guile.
This commit is contained in:
Marius Vollmer 2001-05-19 00:21:41 +00:00
parent de208a7462
commit f366ed28ee
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/stacks.c
View file

@ -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