From 009c34a2da60f1f73d97e3d26a345ceffb10918a Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Sat, 20 Mar 2004 23:37:52 +0000 Subject: [PATCH] * gc.c: remove set_debug_cell_accesses! when SCM_DEBUG_CELL_ACCESSES is not defined. Scheme source code should use (if (defined? 'set-debug-cell-accesses!) .. ) to switch on debugging conditionally. --- libguile/ChangeLog | 7 +++++++ libguile/gc.c | 19 ------------------- 2 files changed, 7 insertions(+), 19 deletions(-) diff --git a/libguile/ChangeLog b/libguile/ChangeLog index 6d88f68b4..56732b2ac 100644 --- a/libguile/ChangeLog +++ b/libguile/ChangeLog @@ -1,3 +1,10 @@ +2004-03-20 Han-Wen Nienhuys + + * gc.c: remove set_debug_cell_accesses! when + SCM_DEBUG_CELL_ACCESSES is not defined. Scheme source code should + use (if (defined? 'set-debug-cell-accesses!) .. ) to switch on + debugging conditionally. + 2004-03-21 Kevin Ryde * stime.c (scm_gmtime): Use gmtime_r when available, for thread safety. diff --git a/libguile/gc.c b/libguile/gc.c index 74f61f0b4..2eebbb59c 100644 --- a/libguile/gc.c +++ b/libguile/gc.c @@ -207,26 +207,7 @@ SCM_DEFINE (scm_set_debug_cell_accesses_x, "set-debug-cell-accesses!", 1, 0, 0, return SCM_UNSPECIFIED; } #undef FUNC_NAME -#else -/* - Provide a stub, so people can use their Scheme code on non-debug - versions of GUILE as well. - */ -SCM_DEFINE (scm_set_debug_cell_accesses_x, "set-debug-cell-accesses!", 1, 0, 0, - (SCM flag), - "This function is used to turn on checking for a debug version of GUILE. This version does not support this functionality\n") -#define FUNC_NAME s_scm_set_debug_cell_accesses_x -{ - - /* - do nothing - */ - fprintf (stderr, "\nWARNING: GUILE was not compiled with SCM_DEBUG_CELL_ACCESSES"); - scm_remember_upto_here (flag); - return SCM_UNSPECIFIED; -} -#undef FUNC_NAME #endif /* SCM_DEBUG_CELL_ACCESSES == 1 */ -- 2.20.1