From 8d0c5006b906871189a1109d40a910205ed5dd6f Mon Sep 17 00:00:00 2001 From: Rob Browning Date: Mon, 20 Sep 2004 03:47:07 +0000 Subject: [PATCH] (scm_set_smob_apply): protect tc value with scm_remember_upto_here_1. Problem was noticed when m68k build segfaulted on document generation. Reported by Sam Hocevar (thanks). --- libguile/smob.c | 1 + 1 file changed, 1 insertion(+) diff --git a/libguile/smob.c b/libguile/smob.c index 16fef9fcb..16a061621 100644 --- a/libguile/smob.c +++ b/libguile/smob.c @@ -449,6 +449,7 @@ scm_set_smob_apply (scm_t_bits tc, SCM (*apply) (), scm_smobs[SCM_TC2SMOBNUM (tc)].apply_2 = apply_2; scm_smobs[SCM_TC2SMOBNUM (tc)].apply_3 = apply_3; scm_smobs[SCM_TC2SMOBNUM (tc)].gsubr_type = type; + scm_remember_upto_here_1 (tc); } SCM