diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1996-10-14 03:26:21 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1996-10-14 03:26:21 +0000 |
commit | 6cb66921f65e0470d5a08ef1a0c2c4062791d366 (patch) | |
tree | e1e6303f7d09fe41e385d117e8a125aa9f8b406a /libguile/print.h | |
parent | 698c029502820c4158a63fd389996f13683fa78e (diff) | |
download | guile-6cb66921f65e0470d5a08ef1a0c2c4062791d366.tar.gz |
* print.h: Added selector SCM_PRINT_STATE.
* print.h: Added declarations for scm_make_print_state,
scm_free_print_state.
Diffstat (limited to 'libguile/print.h')
-rw-r--r-- | libguile/print.h | 5 |
1 files changed, 4 insertions, 1 deletions
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)); |