diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1996-09-22 22:41:40 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1996-09-22 22:41:40 +0000 |
commit | 9882ea199196202be10bcf4bfbfea3669efae421 (patch) | |
tree | 9128a959f5ab93bd4d197165d6b45795d57289b5 /libguile/variable.c | |
parent | 19402679360bfd4d2cd1b87d78bbc5687d03f92b (diff) | |
download | guile-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/variable.c')
-rw-r--r-- | libguile/variable.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/libguile/variable.c b/libguile/variable.c index fe70d24f9..f0cb78120 100644 --- a/libguile/variable.c +++ b/libguile/variable.c @@ -62,13 +62,13 @@ free_var (obj) #ifdef __STDC__ static int -prin_var (SCM exp, SCM port, int writing) +prin_var (SCM exp, SCM port, scm_print_state *pstate) #else static int -prin_var (exp, port, writing) +prin_var (exp, port, pstate) SCM exp; SCM port; - int writing; + scm_print_state *pstate; #endif { scm_gen_puts (scm_regular_string, "#<variable ", port); @@ -79,10 +79,10 @@ prin_var (exp, port, writing) if (SCM_CAR (val_cell) != SCM_UNDEFINED) { scm_gen_puts (scm_regular_string, " name: ", port); - scm_iprin1 (SCM_CAR (val_cell), port, writing); + scm_iprin1 (SCM_CAR (val_cell), port, pstate); } scm_gen_puts (scm_regular_string, " binding: ", port); - scm_iprin1 (SCM_CDR (val_cell), port, writing); + scm_iprin1 (SCM_CDR (val_cell), port, pstate); } scm_gen_putc('>', port); return 1; |