guile/guile-core/libguile stacks.c

[Marius Vollmer]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Marius Vollmer <address@hidden> 01/05/18 17:21:41

Modified files:
        guile-core/libguile: stacks.c 

Log message:
        (narrow_stack): Do not call `scm_system_module_env_p'
        when deprecated features are excluded from Guile.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/stacks.c.diff?cvsroot=OldCVS&tr1=1.58&tr2=1.59&r1=text&r2=text

Patches:
Index: guile/guile-core/libguile/stacks.c
diff -u guile/guile-core/libguile/stacks.c:1.58 
guile/guile-core/libguile/stacks.c:1.59
--- guile/guile-core/libguile/stacks.c:1.58     Tue May 15 07:57:20 2001
+++ guile/guile-core/libguile/stacks.c  Fri May 18 17:21:41 2001
@@ -360,7 +360,10 @@
          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