summaryrefslogtreecommitdiff
path: root/libguile/srcprop.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/srcprop.c')
-rw-r--r--libguile/srcprop.c12
1 files changed, 8 insertions, 4 deletions
diff --git a/libguile/srcprop.c b/libguile/srcprop.c
index d577738ad..e2c7af9b1 100644
--- a/libguile/srcprop.c
+++ b/libguile/srcprop.c
@@ -51,6 +51,7 @@
#include "hashtab.h"
#include "hash.h"
#include "weaks.h"
+#include "print.h"
#include "srcprop.h"
@@ -108,17 +109,20 @@ freesrcprops (obj)
#ifdef __STDC__
static int
-prinsrcprops (SCM obj, SCM port, int writing)
+prinsrcprops (SCM obj, SCM port, scm_print_state *pstate)
#else
static int
-prinsrcprops (obj, port, writing)
+prinsrcprops (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, "#<srcprops ", port);
- scm_iprin1 (scm_srcprops_to_plist (obj), port, 1);
+ SCM_SET_WRITINGP (pstate, 1);
+ scm_iprin1 (scm_srcprops_to_plist (obj), port, pstate);
+ SCM_SET_WRITINGP (pstate, writingp);
scm_gen_putc ('>', port);
return 1;
}