Fix GOOPS `class-of' for nameless structs.
authorLudovic Courtès <ludo@gnu.org>
Sun, 25 Oct 2009 21:49:28 +0000 (22:49 +0100)
committerLudovic Courtès <ludo@gnu.org>
Sun, 25 Oct 2009 21:49:28 +0000 (22:49 +0100)
commit288bbc44cf6f3839331a03649933f25d2361e06f
treedaaa744451b0f98cffb059faab2a005a8d963369
parent9a8eb5fb4641bd9ea83903624c8c71192fe0d0f6
Fix GOOPS `class-of' for nameless structs.

* libguile/goops.c (scm_class_of): Fix second argument for
  `scm_make_extended_class_from_symbol ()' for nameless structs.

* test-suite/tests/goops.test ("classes for built-in types")["struct
  vtable"]: New test case.
libguile/goops.c
test-suite/tests/goops.test