diff --git a/smobs.tcc b/smobs.tcc index c8b9dfe..b1d61b7 100644 --- a/smobs.tcc +++ b/smobs.tcc @@ -132,9 +132,6 @@ void Smob_base::init () // types in order to be able to compare them. The other comparisons // are for static member functions and thus are ordinary function // pointers which work without those contortions. - if (static_cast(&Super::mark_smob) != - static_cast(&Smob_base::mark_smob)) - scm_set_smob_mark (smob_tag_, Super::mark_trampoline); scm_set_smob_print (smob_tag_, Super::print_trampoline); if (&Super::equal_p != &Smob_base::equal_p) scm_set_smob_equalp (smob_tag_, Super::equal_p);