remove unused scm_eval_stack var

* libguile/private-options.h:
* libguile/eval.c (scm_eval_stack): Remove declaration and definition of
  unused scm_eval_stack variable.

diff --git a/libguile/eval.c b/libguile/eval.c
index 151e9ba..8f2f5d0 100644 (file)
--- a/libguile/eval.c
+++ b/libguile/eval.c
@@ -2931,8 +2931,6 @@ int scm_check_apply_p;
 int scm_check_exit_p;
 int scm_check_memoize_p;
 
-long scm_eval_stack;
-
 scm_t_option scm_eval_opts[] = {
   { SCM_OPTION_INTEGER, "stack", 22000, "Size of thread stacks (in machine words)." },
   { 0 }
@@ -3011,7 +3009,6 @@ SCM_DEFINE (scm_eval_options_interface, "eval-options-interface", 0, 1, 0,
   ans = scm_options (setting,
                     scm_eval_opts,
                     FUNC_NAME);
-  scm_eval_stack = SCM_EVAL_STACK * sizeof (void *);
   scm_dynwind_end ();
 
   return ans;

diff --git a/libguile/private-options.h b/libguile/private-options.h
index ffb699b..703ca8a 100644 (file)
--- a/libguile/private-options.h
+++ b/libguile/private-options.h
@@ -4,7 +4,7 @@
  * We put this in a private header, since layout of data structures
  * is an implementation detail that we want to hide.
  * 
- * Copyright (C) 2007 Free Software Foundation, Inc.
+ * Copyright (C) 2007, 2009 Free Software Foundation, Inc.
  * 
  * This library is free software; you can redistribute it and/or
  * modify it under the terms of the GNU Lesser General Public License
@@ -30,8 +30,6 @@
  */
 SCM_API scm_t_option scm_eval_opts[];
 
-SCM_API long scm_eval_stack;
-
 SCM_API scm_t_option scm_evaluator_trap_table[];
 
 SCM_API SCM scm_eval_options_interface (SCM setting);