From 231dd356162ba2ab1f67666fa40953fae538d107 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Fri, 18 Nov 2011 10:50:35 +0100 Subject: [PATCH] simplify scm_init_print * libguile/print.c (scm_init_print): Simplify creation of print-state vtable. --- libguile/print.c | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/libguile/print.c b/libguile/print.c index 6e1ff802f..856e8c90e 100644 --- a/libguile/print.c +++ b/libguile/print.c @@ -1520,7 +1520,7 @@ SCM_DEFINE (scm_get_print_state, "get-print-state", 1, 0, 0, void scm_init_print () { - SCM vtable, layout, type; + SCM type; scm_init_opts (scm_print_options, scm_print_opts); @@ -1531,10 +1531,8 @@ scm_init_print () scm_gc_register_root (&print_state_pool); scm_gc_register_root (&scm_print_state_vtable); - vtable = scm_make_vtable_vtable (scm_nullstr, SCM_INUM0, SCM_EOL); - layout = - scm_make_struct_layout (scm_from_locale_string (SCM_PRINT_STATE_LAYOUT)); - type = scm_make_struct (vtable, SCM_INUM0, scm_list_1 (layout)); + type = scm_make_vtable (scm_from_locale_string (SCM_PRINT_STATE_LAYOUT), + SCM_BOOL_F); scm_set_struct_vtable_name_x (type, scm_from_latin1_symbol ("print-state")); scm_print_state_vtable = type;