diff options
Diffstat (limited to 'libguile/print.c')
-rw-r--r-- | libguile/print.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/libguile/print.c b/libguile/print.c index 4d57a877d..24c532f29 100644 --- a/libguile/print.c +++ b/libguile/print.c @@ -196,6 +196,7 @@ make_print_state (void) { SCM print_state = scm_make_struct_no_tail (scm_print_state_vtable, SCM_EOL); scm_print_state *pstate = SCM_PRINT_STATE (print_state); + pstate->handle = print_state; pstate->ref_vect = scm_c_make_vector (PSTATE_SIZE, SCM_UNDEFINED); pstate->ceiling = SCM_SIMPLE_VECTOR_LENGTH (pstate->ref_vect); pstate->highlight_objects = SCM_EOL; |