summaryrefslogtreecommitdiff
path: root/libguile/debug.c
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>1996-09-22 22:41:40 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>1996-09-22 22:41:40 +0000
commit9882ea199196202be10bcf4bfbfea3669efae421 (patch)
tree9128a959f5ab93bd4d197165d6b45795d57289b5 /libguile/debug.c
parent19402679360bfd4d2cd1b87d78bbc5687d03f92b (diff)
downloadguile-9882ea199196202be10bcf4bfbfea3669efae421.tar.gz
* 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'.
Diffstat (limited to 'libguile/debug.c')
-rw-r--r--libguile/debug.c19
1 files changed, 12 insertions, 7 deletions
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, "#<memoized ", port);
- scm_iprin1 (scm_unmemoize (obj), port, 1);
+ SCM_SET_WRITINGP (pstate, 1);
+ scm_iprin1 (scm_unmemoize (obj), port, pstate);
+ SCM_SET_WRITINGP (pstate, writingp);
scm_gen_putc ('>', 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, "#<debug-object ", port);