diff options
| author | Andy Wingo <wingo@pobox.com> | 2016-09-02 09:43:42 +0200 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2016-09-02 09:43:42 +0200 |
| commit | 2dbb0e212d76f08be6cd36a7b917b00deeb367cb (patch) | |
| tree | 07ad7bd70c8a23613387a0efc7a0d5dba85f4f87 /libguile/goops.c | |
| parent | 0f2f5949a21572fad8355473200c7adc6d74f882 (diff) | |
| download | guile-2dbb0e212d76f08be6cd36a7b917b00deeb367cb.tar.gz | |
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.
Diffstat (limited to 'libguile/goops.c')
| -rw-r--r-- | libguile/goops.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/goops.c b/libguile/goops.c index 88a065fd2..3ed60d3f3 100644 --- a/libguile/goops.c +++ b/libguile/goops.c @@ -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. */ |