mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-21 11:10:21 +02:00
Code Activity

simplify scm_init_print

Browse source 
* libguile/print.c (scm_init_print): Simplify creation of print-state
  vtable.
This commit is contained in:
Andy Wingo 2011-11-18 10:50:35 +01:00
parent bb9b357e2b
commit 231dd35616
1 changed files with 3 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/print.c
View file

@ -1520,7 +1520,7 @@ SCM_DEFINE (scm_get_print_state, "get-print-state", 1, 0, 0,
void void
scm_init_print () scm_init_print ()
{ {
SCM vtable, layout, type; SCM type;
scm_init_opts (scm_print_options, scm_print_opts); 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 (&print_state_pool);
scm_gc_register_root (&scm_print_state_vtable); scm_gc_register_root (&scm_print_state_vtable);
vtable = scm_make_vtable_vtable (scm_nullstr, SCM_INUM0, SCM_EOL); type = scm_make_vtable (scm_from_locale_string (SCM_PRINT_STATE_LAYOUT),
layout = SCM_BOOL_F);
scm_make_struct_layout (scm_from_locale_string (SCM_PRINT_STATE_LAYOUT));
type = scm_make_struct (vtable, SCM_INUM0, scm_list_1 (layout));
scm_set_struct_vtable_name_x (type, scm_from_latin1_symbol ("print-state")); scm_set_struct_vtable_name_x (type, scm_from_latin1_symbol ("print-state"));
scm_print_state_vtable = type; scm_print_state_vtable = type;