diff options
-rw-r--r-- | libguile/eval.c | 3 | ||||
-rw-r--r-- | libguile/private-options.h | 4 |
2 files changed, 1 insertions, 6 deletions
diff --git a/libguile/eval.c b/libguile/eval.c index 151e9ba99..8f2f5d02f 100644 --- 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 ffb699bee..703ca8a5b 100644 --- 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); |