diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-08-27 03:20:55 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-08-27 03:20:55 +0000 |
commit | 3ce4544cfa84d6fd9c025ad2afeab6af22c25680 (patch) | |
tree | 23818c8bd77ef5e88e4110b1305c56ef78d3738c /libguile/objects.c | |
parent | 06f0414c85308b4f6bd1cd6f95166cbdb2eb4017 (diff) | |
download | guile-3ce4544cfa84d6fd9c025ad2afeab6af22c25680.tar.gz |
* objects.c (scm_init_objects), print.c (scm_init_print), struct.c
(scm_init_struct): First arg to scm_make_vtable_vtable should be a
string, not a symbol. (`make-vtable-vtable' needs to append this
string to another string and then pass it through
`make-struct-layout'.)
Diffstat (limited to 'libguile/objects.c')
-rw-r--r-- | libguile/objects.c | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/libguile/objects.c b/libguile/objects.c index 568e25a9e..b8c6ac0dd 100644 --- a/libguile/objects.c +++ b/libguile/objects.c @@ -468,13 +468,11 @@ void scm_init_objects () { SCM ms = scm_makfrom0str (SCM_METACLASS_STANDARD_LAYOUT); - SCM ml = scm_make_struct_layout (ms); - SCM mt = scm_make_vtable_vtable (ml, SCM_INUM0, + SCM mt = scm_make_vtable_vtable (ms, SCM_INUM0, SCM_LIST3 (SCM_BOOL_F, SCM_EOL, SCM_EOL)); SCM os = scm_makfrom0str (SCM_METACLASS_OPERATOR_LAYOUT); - SCM ol = scm_make_struct_layout (os); - SCM ot = scm_make_vtable_vtable (ol, SCM_INUM0, + SCM ot = scm_make_vtable_vtable (os, SCM_INUM0, SCM_LIST3 (SCM_BOOL_F, SCM_EOL, SCM_EOL)); SCM es = scm_makfrom0str (SCM_ENTITY_LAYOUT); |