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

* backtrace.c, debug.c, debug.h, deprecation.c, eq.c, eval.c

Browse source 
eval.h, gsubr.c, init.c, macros.c, print.c, print.h, read.c,
read.h, stacks.c, symbols.c, throw.c: use private-options.h

* private-options.h: new file: contain hardcoded option
definitions.
This commit is contained in:
Han-Wen Nienhuys 2007-01-22 15:14:40 +00:00
parent cb90e2cbe7
commit 22fc179acd
18 changed files with 139 additions and 59 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/debug.c
View file

@ -42,8 +42,11 @@
#include "libguile/validate.h"
#include "libguile/debug.h"
#include "libguile/private-options.h"
/* {Run time control of the debugging evaluator}
*/
@ -74,6 +77,7 @@ SCM_DEFINE (scm_debug_options, "debug-options-interface", 0, 1, 0,
}
#undef FUNC_NAME
static void
with_traps_before (void *data)
{
@ -112,7 +116,6 @@ SCM_DEFINE (scm_with_traps, "with-traps", 1, 0, 0,
#undef FUNC_NAME
SCM_SYMBOL (scm_sym_procname, "procname");
SCM_SYMBOL (scm_sym_dots, "...");
SCM_SYMBOL (scm_sym_source, "source");