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

* script.c (scm_compile_shell_switches): Added --debug option.

Browse source
This commit is contained in:
Mikael Djurfeldt 2000-04-16 14:22:22 +00:00
parent a0128ebefa
commit d150e49165
1 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/script.c
View file

@ -379,6 +379,7 @@ scm_shell_usage (int fatal, char *message)
" -e FUNCTION after reading script, apply FUNCTION to\n" " -e FUNCTION after reading script, apply FUNCTION to\n"
" command line arguments\n" " command line arguments\n"
" -ds do -s script at this point\n" " -ds do -s script at this point\n"
" --debug start with debugging evaluator and backtraces\n"
" -q inhibit loading of user init file\n" " -q inhibit loading of user init file\n"
" --emacs enable Emacs protocol (experimental)\n" " --emacs enable Emacs protocol (experimental)\n"
" -h, --help display this help and exit\n" " -h, --help display this help and exit\n"
@ -525,6 +526,13 @@ scm_compile_shell_switches (int argc, char **argv)
tail); tail);
} }
else if (! strcmp (argv[i], "--debug")) /* debug eval + backtraces */
{
SCM_DEVAL_P = 1;
SCM_BACKTRACE_P = 1;
SCM_RESET_DEBUG_MODE;
}
else if (! strcmp (argv[i], "--emacs")) /* use emacs protocol */ else if (! strcmp (argv[i], "--emacs")) /* use emacs protocol */
use_emacs_interface = 1; use_emacs_interface = 1;