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

* print.c (scm_init_print): Set name of print state type.

Browse source
This commit is contained in:
Mikael Djurfeldt 1999-07-29 23:02:01 +00:00
parent 3a3111a88d
commit e9cd0e473e
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
libguile/print.c
View file

@ -1035,6 +1035,7 @@ scm_init_print ()
(SCM (*) ()) print_state_printer, (SCM (*) ()) print_state_printer,
0 /* Don't bind the name. */); 0 /* Don't bind the name. */);
type = scm_make_struct (vtable, SCM_INUM0, SCM_LIST2 (layout, printer)); type = scm_make_struct (vtable, SCM_INUM0, SCM_LIST2 (layout, printer));
scm_set_struct_vtable_name_x (type, SCM_CAR (scm_intern0 ("print-state")));
print_state_pool = scm_permanent_object (scm_cons (type, SCM_EOL)); print_state_pool = scm_permanent_object (scm_cons (type, SCM_EOL));
scm_print_state_vtable = type; scm_print_state_vtable = type;