From 6cb66921f65e0470d5a08ef1a0c2c4062791d366 Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Mon, 14 Oct 1996 03:26:21 +0000 Subject: * print.h: Added selector SCM_PRINT_STATE. * print.h: Added declarations for scm_make_print_state, scm_free_print_state. --- libguile/print.h | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'libguile/print.h') diff --git a/libguile/print.h b/libguile/print.h index 26fd5ff55..495e37d50 100644 --- a/libguile/print.h +++ b/libguile/print.h @@ -56,6 +56,8 @@ extern scm_option scm_print_opts[]; /* State information passed around during printing. */ +#define SCM_PRINT_STATE(obj) ((scm_print_state *) SCM_STRUCT_DATA (obj)) + #define RESET_PRINT_STATE(pstate) \ { \ pstate->list_offset = 0; \ @@ -81,8 +83,9 @@ typedef struct scm_print_state { circular reference detection */ } scm_print_state; - extern SCM scm_print_options SCM_P ((SCM setting)); +SCM scm_make_print_state SCM_P ((void)); +void scm_free_print_state SCM_P ((SCM print_state)); extern void scm_intprint SCM_P ((long n, int radix, SCM port)); extern void scm_ipruk SCM_P ((char *hdr, SCM ptr, SCM port)); extern void scm_iprlist SCM_P ((char *hdr, SCM exp, char tlr, SCM port, scm_print_state *pstate)); -- cgit v1.2.3