summaryrefslogtreecommitdiff
path: root/libguile/procs.h
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2009-03-08 23:04:06 +0100
committerLudovic Courtès <ludo@gnu.org>2009-03-08 23:04:06 +0100
commitf307fbcec2cbaaa95b8c861395133b519c7519cf (patch)
tree8f08599fb60cfdcd98de0f03a465e70e962112bd /libguile/procs.h
parent1eefa363bd7f0db07a907c773c890b78ff6415a9 (diff)
parent6c59f901499937fe3779ef1f543646754f843679 (diff)
downloadguile-f307fbcec2cbaaa95b8c861395133b519c7519cf.tar.gz
Merge branch 'master' into boehm-demers-weiser-gc
Conflicts: libguile/gc-card.c libguile/gc-mark.c
Diffstat (limited to 'libguile/procs.h')
-rw-r--r--libguile/procs.h17
1 files changed, 0 insertions, 17 deletions
diff --git a/libguile/procs.h b/libguile/procs.h
index 354d27179..3ccf1ee33 100644
--- a/libguile/procs.h
+++ b/libguile/procs.h
@@ -39,18 +39,6 @@
#define SCM_SET_SUBR_GENERIC(x, g) (*((SCM *) SCM_CELL_WORD_2 (x)) = (g))
#define SCM_SET_SUBR_GENERIC_LOC(x, g) (SCM_SET_CELL_WORD_2 (x, (scm_t_bits) g))
-#define SCM_CCLO_LENGTH(x) (SCM_CELL_WORD_0 (x) >> 8)
-#define SCM_MAKE_CCLO_TAG(v) (((v) << 8) + scm_tc7_cclo)
-#define SCM_SET_CCLO_LENGTH(x, v) (SCM_SET_CELL_WORD_0 ((x), SCM_MAKE_CCLO_TAG(v)))
-#define SCM_CCLO_BASE(x) ((scm_t_bits *) SCM_CELL_WORD_1 (x))
-#define SCM_SET_CCLO_BASE(x, v) (SCM_SET_CELL_WORD_1 ((x), (v)))
-
-#define SCM_CCLO_REF(x, i) (SCM_PACK (SCM_CCLO_BASE (x) [i]))
-#define SCM_CCLO_SET(x, i, v) (SCM_CCLO_BASE (x) [i] = SCM_UNPACK (v))
-
-#define SCM_CCLO_SUBR(x) (SCM_CCLO_REF ((x), 0))
-#define SCM_SET_CCLO_SUBR(x, v) (SCM_CCLO_SET ((x), 0, (v)))
-
/* Closures
*/
@@ -121,7 +109,6 @@ SCM_API SCM scm_c_make_subr_with_generic (const char *name, long type,
SCM_API SCM scm_c_define_subr (const char *name, long type, SCM (*fcn)());
SCM_API SCM scm_c_define_subr_with_generic (const char *name, long type,
SCM (*fcn)(), SCM *gf);
-SCM_API SCM scm_makcclo (SCM proc, size_t len);
SCM_API SCM scm_procedure_p (SCM obj);
SCM_API SCM scm_closure_p (SCM obj);
SCM_API SCM scm_thunk_p (SCM obj);
@@ -133,10 +120,6 @@ SCM_API SCM scm_procedure (SCM proc);
SCM_API SCM scm_setter (SCM proc);
SCM_INTERNAL void scm_init_procs (void);
-#ifdef GUILE_DEBUG
-SCM_API SCM scm_make_cclo (SCM proc, SCM len);
-#endif /*GUILE_DEBUG*/
-
#endif /* SCM_PROCS_H */
/*