From 9882ea199196202be10bcf4bfbfea3669efae421 Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Sun, 22 Sep 1996 22:41:40 +0000 Subject: * arbiters.c (prinarb), async.c (print_async), debug.c (prindebugobj, prinmemoized), eval.c (prinprom, prinmacro), filesys.c (scm_fd_print, scm_dir_print), kw.c (print_kw), mallocs.c (prinmalloc), numbers.c, numbers.h (scm_floprint, scm_bigprint), smob.h (scm_smobfuns), srcprop.c (prinsrcprops), throw.c (prinjb), unif.c, unif.h (scm_raprin1, rapr1), variable.c (prin_var): Changed argument `int writing' to `scm_print_state *pstate'. --- libguile/debug.c | 19 ++++++++++++------- 1 file changed, 12 insertions(+), 7 deletions(-) (limited to 'libguile/debug.c') diff --git a/libguile/debug.c b/libguile/debug.c index e56a1b373..dca6828af 100644 --- a/libguile/debug.c +++ b/libguile/debug.c @@ -143,17 +143,20 @@ long scm_tc16_memoized; #ifdef __STDC__ static int -prinmemoized (SCM obj, SCM port, int writing) +prinmemoized (SCM obj, SCM port, scm_print_state *pstate) #else static int -prinmemoized (obj, port, writing) +prinmemoized (obj, port, pstate) SCM obj; SCM port; - int writing; + scm_print_state *pstate; #endif { + int writingp = SCM_WRITINGP (pstate); scm_gen_puts (scm_regular_string, "#', port); return 1; } @@ -379,11 +382,13 @@ long scm_tc16_debugobj; #ifdef __STDC__ static int -prindebugobj (SCM obj, SCM port, int writing) +prindebugobj (SCM obj, SCM port, scm_print_state *pstate) #else static int -prindebugobj (writing) - SCM obj, SCM port, int writing; +prindebugobj (pstate) + SCM obj; + SCM port; + scm_print_state *pstate; #endif { scm_gen_puts (scm_regular_string, "#