diff options
author | Keisuke Nishida <kxn30@po.cwru.edu> | 2000-12-07 07:10:26 +0000 |
---|---|---|
committer | Keisuke Nishida <kxn30@po.cwru.edu> | 2000-12-07 07:10:26 +0000 |
commit | 68b069240f6039116c62a62c51ca0ea32e6ff92f (patch) | |
tree | 03143d9190c104fad783b31d785e00f96dd06645 /libguile/smob.c | |
parent | 23cc31b8ee07cb9f18d706d8a971fda5cf0ed0c0 (diff) | |
download | guile-68b069240f6039116c62a62c51ca0ea32e6ff92f.tar.gz |
Some cleanup on smob calls.
Diffstat (limited to 'libguile/smob.c')
-rw-r--r-- | libguile/smob.c | 3 |
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 |