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

* objects.c (scm_init_objects): Renamed <standard-metaclass>,

Browse source 
<operator-metaclass> and <entity-class> to <standard-class>,
<operator-class> and <entity> in order to conform with STKlos
naming conventions.
This commit is contained in:
Mikael Djurfeldt 1998-11-21 17:01:33 +00:00
parent 9b07e212d5
commit af3645c52b
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/objects.c
View file

@ -219,12 +219,12 @@ scm_init_objects ()
SCM et = scm_make_struct (mt, SCM_INUM0,
SCM_LIST4 (el, SCM_BOOL_F, SCM_EOL, SCM_EOL));
scm_sysintern ("<standard-metaclass>", mt);
scm_sysintern ("<standard-class>", mt);
scm_metaclass_standard = mt;
scm_sysintern ("<operator-metaclass>", ot);
scm_sysintern ("<operator-class>", ot);
scm_metaclass_operator = ot;
SCM_SET_CLASS_FLAGS (et, SCM_CLASSF_OPERATOR | SCM_CLASSF_ENTITY);
scm_sysintern ("<entity-class>", et);
scm_sysintern ("<entity>", et);
#include "objects.x"
}