mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

* smob.h (scm_smobfuns): Removed deprecated type.

Browse source 
* smob.c, smob.h (scm_newsmob): Removed deprecated function.
(Replaced by `scm_make_smob_type'.)
This commit is contained in:
Mikael Djurfeldt 2000-06-12 11:59:42 +00:00
parent 369720835e
commit ffdcbb3f8d
2 changed files with 0 additions and 31 deletions
Download patch file Download diff file Expand all files Collapse all files

17
libguile/smob.c
View file

@ -204,23 +204,6 @@ scm_set_smob_mfpe (long tc,
} }
#if (SCM_DEBUG_DEPRECATED == 0)
/* Use scm_make_smob_type or scm_make_smob_type_mfpe instead. */
long
scm_newsmob (const scm_smobfuns *smob)
{
long tc = scm_make_smob_type (0, 0);
scm_set_smob_mark (tc, smob->mark);
scm_set_smob_free (tc, smob->free);
scm_set_smob_print (tc, smob->print);
scm_set_smob_equalp (tc, smob->equalp);
return tc;
}
#endif /* SCM_DEBUG_DEPRECATED == 0 */
SCM SCM
scm_make_smob (long tc) scm_make_smob (long tc)
{ {

14
libguile/smob.h
View file

@ -162,20 +162,6 @@ extern void scm_smob_prehistory (void);
#if (SCM_DEBUG_DEPRECATED == 0)
typedef struct scm_smobfuns
{
SCM (*mark) (SCM);
scm_sizet (*free) (SCM);
int (*print) (SCM exp, SCM port, scm_print_state *pstate);
SCM (*equalp) (SCM, SCM);
} scm_smobfuns;
extern long scm_newsmob (const scm_smobfuns *smob);
#endif /* SCM_DEBUG_DEPRECATED == 0 */
#endif /* SMOBH */ #endif /* SMOBH */
/* /*