1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 15:40:19 +02:00

GOOPS caches created vtables

* libguile/goops.c (scm_i_define_class_for_vtable): Cache created
  vtables.  Fixes #24286.
* test-suite/tests/goops.test ("classes for built-in types"): Add
  tests.
This commit is contained in:
Andy Wingo 2016-09-02 09:43:42 +02:00
parent 0f2f5949a2
commit 2dbb0e212d
2 changed files with 12 additions and 2 deletions

View file

@ -865,7 +865,7 @@ scm_i_define_class_for_vtable (SCM vtable)
supers = scm_list_1 (class_top);
}
return scm_make_standard_class (meta, name, supers, SCM_EOL);
class = scm_make_standard_class (meta, name, supers, SCM_EOL);
}
else
/* `create_struct_classes' will fill this in later. */