summaryrefslogtreecommitdiff
path: root/libguile/smob.h
diff options
context:
space:
mode:
authorKeisuke Nishida <kxn30@po.cwru.edu>2000-12-07 12:04:48 +0000
committerKeisuke Nishida <kxn30@po.cwru.edu>2000-12-07 12:04:48 +0000
commit7c58e21b087b4b73835a6365045377d7dd1d22f3 (patch)
tree1ff09dd1a184f5a9f4ad711410a34a9569b054ba /libguile/smob.h
parent68b069240f6039116c62a62c51ca0ea32e6ff92f (diff)
downloadguile-7c58e21b087b4b73835a6365045377d7dd1d22f3.tar.gz
Deprecated scm_make_smob_type_mfpe and scm_set_smob_mfpe.
Some optimization on applicable smobs. (Thanks to Dirk Herrmann)
Diffstat (limited to 'libguile/smob.h')
-rw-r--r--libguile/smob.h29
1 files changed, 12 insertions, 17 deletions
diff --git a/libguile/smob.h b/libguile/smob.h
index 437eaccc9..878bd62e8 100644
--- a/libguile/smob.h
+++ b/libguile/smob.h
@@ -136,11 +136,6 @@ extern scm_sizet scm_free0 (SCM ptr);
extern scm_sizet scm_smob_free (SCM obj);
extern int scm_smob_print (SCM exp, SCM port, scm_print_state *pstate);
-extern SCM scm_smob_apply_0 (SCM smob);
-extern SCM scm_smob_apply_1 (SCM smob, SCM a1);
-extern SCM scm_smob_apply_2 (SCM smob, SCM a1, SCM a2);
-extern SCM scm_smob_apply_3 (SCM smob, SCM a1, SCM a2, SCM rest);
-
/* The following set of functions is the standard way to create new
* SMOB types.
*
@@ -157,14 +152,19 @@ extern void scm_set_smob_print (long tc, int (*print) (SCM,
SCM,
scm_print_state*));
extern void scm_set_smob_equalp (long tc, SCM (*equalp) (SCM, SCM));
-extern void scm_set_smob_apply (long tc, SCM (*apply) (), int req, int opt, int rst);
+extern void scm_set_smob_apply (long tc, SCM (*apply) (),
+ unsigned int req,
+ unsigned int opt,
+ unsigned int rst);
+/* Function for creating smobs */
-/* Functions for registering multiple handler functions simultaneously.
- *
- * (There is a discussion among the developers whether or not these
- * should be deprecated in the future.)
- */
+extern SCM scm_make_smob (long tc);
+extern void scm_smob_prehistory (void);
+
+
+
+#if (SCM_DEBUG_DEPRECATED == 0)
extern long scm_make_smob_type_mfpe (char *name, scm_sizet size,
SCM (*mark) (SCM),
@@ -178,12 +178,7 @@ extern void scm_set_smob_mfpe (long tc,
int (*print) (SCM, SCM, scm_print_state*),
SCM (*equalp) (SCM, SCM));
-/* Function for creating smobs */
-
-extern SCM scm_make_smob (long tc);
-extern void scm_smob_prehistory (void);
-
-
+#endif /* SCM_DEBUG_DEPRECATED == 0 */
#endif /* SMOBH */