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

* objects.h, objects.c (scm_classes_initialized): New.

Browse source 
(scm_class_of): Signal error when scm_classes_initialized is zero.
* goops.c (create_standard_classes): Set scm_classes_initialized
to one.
This commit is contained in:
Marius Vollmer 2005-01-17 19:04:54 +00:00
parent 332036c18a
commit ba96ba4cdc
3 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
libguile/goops.c
View file

@ -2377,6 +2377,7 @@ create_standard_classes (void)
scm_class_class,
scm_list_2 (scm_class_input_port, scm_class_output_port),
SCM_EOL);
scm_classes_initialized = 1;
}
/**********************************************************************