[patch] libguile/eval.c

[Lars J. Aas]

Can you guys sanity-check this one?

The method scm_cons_source references scm_source_whash, which is only
defined when DEBUG_EXTENSIONS is defined.  I therefore wrapped the
whole method inside DEBUG_EXTENSIONS.

I also disabled the use of `inline' - it needs to be used through
a define so it can be disabled.

  Lars J

Index: libguile/eval.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/eval.c,v
retrieving revision 1.178
diff -u -r1.178 eval.c
--- libguile/eval.c     2000/11/07 02:17:36     1.178
+++ libguile/eval.c     2000/11/16 09:59:40
@@ -3591,7 +3591,11 @@
    Verify that each element of the vector ARGV, except for the first,
    is a proper list whose length is LEN.  Attribute errors to WHO,
    and claim that the i'th element of ARGV is WHO's i+2'th argument.  */
-static inline void
+
+/* `inline' must be done indirectly through a define set up through
+   a configure test - Lars J. 2000-11-16 */
+/* static inline void */
+static void
 check_map_args (SCM argv,
                long len,
                SCM gf,
@@ -3787,6 +3791,7 @@
 #undef FUNC_NAME
 
 
+#ifdef DEBUG_EXTENSIONS
 SCM_DEFINE (scm_cons_source, "cons-source", 3, 0, 0, 
             (SCM xorig, SCM x, SCM y),
            "Create and return a new pair whose car and cdr are @var{x} and 
@var{y}.\n"
@@ -3805,8 +3810,8 @@
   return z;
 }
 #undef FUNC_NAME
+#endif /* DEBUG_EXTENSIONS */
 
-
 SCM_DEFINE (scm_copy_tree, "copy-tree", 1, 0, 0, 
             (SCM obj),
            "Recursively copy the data tree that is bound to @var{obj}, and 
return a\n"