summaryrefslogtreecommitdiff
path: root/libguile/variable.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/variable.c')
-rw-r--r--libguile/variable.c13
1 files changed, 8 insertions, 5 deletions
diff --git a/libguile/variable.c b/libguile/variable.c
index 984de26db..f0cb78120 100644
--- a/libguile/variable.c
+++ b/libguile/variable.c
@@ -42,7 +42,10 @@
#include <stdio.h>
#include "_scm.h"
+#include "genio.h"
+#include "smob.h"
+#include "variable.h"
#ifdef __STDC__
static scm_sizet
@@ -59,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);
@@ -76,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;