summaryrefslogtreecommitdiff
path: root/libguile/smob.c
diff options
context:
space:
mode:
authorKeisuke Nishida <kxn30@po.cwru.edu>2000-12-07 07:10:26 +0000
committerKeisuke Nishida <kxn30@po.cwru.edu>2000-12-07 07:10:26 +0000
commit68b069240f6039116c62a62c51ca0ea32e6ff92f (patch)
tree03143d9190c104fad783b31d785e00f96dd06645 /libguile/smob.c
parent23cc31b8ee07cb9f18d706d8a971fda5cf0ed0c0 (diff)
downloadguile-68b069240f6039116c62a62c51ca0ea32e6ff92f.tar.gz
Some cleanup on smob calls.
Diffstat (limited to 'libguile/smob.c')
-rw-r--r--libguile/smob.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/libguile/smob.c b/libguile/smob.c
index 9475542fd..ca23373bb 100644
--- a/libguile/smob.c
+++ b/libguile/smob.c
@@ -317,6 +317,7 @@ scm_make_smob_type (char *name, scm_sizet size)
scm_smobs[scm_numsmob].apply_1 = 0;
scm_smobs[scm_numsmob].apply_2 = 0;
scm_smobs[scm_numsmob].apply_3 = 0;
+ scm_smobs[scm_numsmob].gsubr_type = 0;
scm_numsmob++;
}
SCM_ALLOW_INTS;
@@ -470,12 +471,12 @@ scm_set_smob_apply (long tc, SCM (*apply) (), int req, int opt, int rst)
apply_3 = scm_smob_apply_3_error; break;
}
- scm_smobs[SCM_TC2SMOBNUM (tc)].gsubr_type = type; /* Used in procprop.c */
scm_smobs[SCM_TC2SMOBNUM (tc)].apply = apply;
scm_smobs[SCM_TC2SMOBNUM (tc)].apply_0 = apply_0;
scm_smobs[SCM_TC2SMOBNUM (tc)].apply_1 = apply_1;
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;
}
void