X-Git-Url: https://git.hcoop.net/bpt/guile.git/blobdiff_plain/4f2b34ff640060ec7e75a922db110d7850b6c1c7..231dd356162ba2ab1f67666fa40953fae538d107:/libguile/print.c

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;