mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 19:50:24 +02:00
Code Activity

* * eval.c: Renamed debug option "deval" to "debug".

Browse source
This commit is contained in:
Mikael Djurfeldt 1996-11-02 20:53:32 +00:00
parent 44b5e41db4
commit 11f77bfcc9
1 changed files with 3 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/eval.c
View file

@ -1240,9 +1240,8 @@ scm_option scm_debug_opts[] = {
{ SCM_OPTION_INTEGER, "maxdepth", 1000, { SCM_OPTION_INTEGER, "maxdepth", 1000,
"Maximal number of stored backtrace frames." }, "Maximal number of stored backtrace frames." },
{ SCM_OPTION_INTEGER, "depth", 20, "Maximal length of printed backtrace." }, { SCM_OPTION_INTEGER, "depth", 20, "Maximal length of printed backtrace." },
{ SCM_OPTION_BOOLEAN, "backtrace", 1, { SCM_OPTION_BOOLEAN, "backtrace", 0, "Show backtrace on error." },
"Show backtrace on error (use debugging evaluator)." }, { SCM_OPTION_BOOLEAN, "debug", 0, "Use the debugging evaluator." },
{ SCM_OPTION_BOOLEAN, "deval", 0, "Use the debugging evaluator." },
{ SCM_OPTION_INTEGER, "stack", 20000, "Stack size limit (0 = no check)." } { SCM_OPTION_INTEGER, "stack", 20000, "Stack size limit (0 = no check)." }
}; };
@ -2808,7 +2807,7 @@ scm_eval (obj)
scm_eval_3(obj, 1, scm_top_level_env(SCM_CDR(scm_top_level_lookup_thunk_var))); scm_eval_3(obj, 1, scm_top_level_env(SCM_CDR(scm_top_level_lookup_thunk_var)));
} }
SCM_PROC(s_eval_x, "eval!", 1, 0, 0, scm_eval_x); /* SCM_PROC(s_eval_x, "eval!", 1, 0, 0, scm_eval_x); */
SCM SCM
scm_eval_x (obj) scm_eval_x (obj)