summaryrefslogtreecommitdiff
path: root/libguile/list.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-08-31 12:13:50 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-08-31 12:13:50 +0000
commitdee01b012cd5179b70a2e361ee08c364ed9f3314 (patch)
tree342478de9cb5237437a734aa88b7c9fe26533845 /libguile/list.c
parentb29058ffee392969b448f8157afaf370c17a736c (diff)
downloadguile-dee01b012cd5179b70a2e361ee08c364ed9f3314.tar.gz
* Removed deprecated stuff.
* Some more renamings to SCM_<filename>_H.
Diffstat (limited to 'libguile/list.c')
-rw-r--r--libguile/list.c62
1 files changed, 0 insertions, 62 deletions
diff --git a/libguile/list.c b/libguile/list.c
index b1465fa78..a2f29f034 100644
--- a/libguile/list.c
+++ b/libguile/list.c
@@ -133,12 +133,6 @@ SCM_DEFINE (scm_list, "list", 0, 0, 1,
#undef FUNC_NAME
-#if (SCM_DEBUG_DEPRECATED == 0)
-
-SCM_REGISTER_PROC (s_list_star, "list*", 1, 0, 1, scm_cons_star);
-
-#endif /* SCM_DEBUG_DEPRECATED == 0 */
-
SCM_DEFINE (scm_cons_star, "cons*", 1, 0, 1,
(SCM arg, SCM rest),
"Like @code{list}, but the last arg provides the tail of the\n"
@@ -553,60 +547,6 @@ SCM_DEFINE (scm_list_copy, "list-copy", 1, 0, 0,
/* membership tests (memq, memv, etc.) */
-#if SCM_DEBUG_DEPRECATED == 0
-
-SCM_DEFINE (scm_sloppy_memq, "sloppy-memq", 2, 0, 0,
- (SCM x, SCM lst),
- "This procedure behaves like @code{memq}, but does no type or error checking.\n"
- "Its use is recommended only in writing Guile internals,\n"
- "not for high-level Scheme programs.")
-#define FUNC_NAME s_scm_sloppy_memq
-{
- for(; SCM_CONSP (lst); lst = SCM_CDR(lst))
- {
- if (SCM_EQ_P (SCM_CAR (lst), x))
- return lst;
- }
- return lst;
-}
-#undef FUNC_NAME
-
-
-SCM_DEFINE (scm_sloppy_memv, "sloppy-memv", 2, 0, 0,
- (SCM x, SCM lst),
- "This procedure behaves like @code{memv}, but does no type or error checking.\n"
- "Its use is recommended only in writing Guile internals,\n"
- "not for high-level Scheme programs.")
-#define FUNC_NAME s_scm_sloppy_memv
-{
- for(; SCM_CONSP (lst); lst = SCM_CDR(lst))
- {
- if (! SCM_FALSEP (scm_eqv_p (SCM_CAR (lst), x)))
- return lst;
- }
- return lst;
-}
-#undef FUNC_NAME
-
-
-SCM_DEFINE (scm_sloppy_member, "sloppy-member", 2, 0, 0,
- (SCM x, SCM lst),
- "This procedure behaves like @code{member}, but does no type or error checking.\n"
- "Its use is recommended only in writing Guile internals,\n"
- "not for high-level Scheme programs.")
-#define FUNC_NAME s_scm_sloppy_member
-{
- for(; SCM_CONSP (lst); lst = SCM_CDR(lst))
- {
- if (! SCM_FALSEP (scm_equal_p (SCM_CAR (lst), x)))
- return lst;
- }
- return lst;
-}
-#undef FUNC_NAME
-
-#endif /* DEPRECATED */
-
/* The function scm_c_memq returns the first sublist of list whose car is
* 'eq?' obj, where the sublists of list are the non-empty lists returned by
* (list-tail list k) for k less than the length of list. If obj does not
@@ -642,7 +582,6 @@ SCM_DEFINE (scm_memq, "memq", 2, 0, 0,
#undef FUNC_NAME
-
SCM_DEFINE (scm_memv, "memv", 2, 0, 0,
(SCM x, SCM lst),
"Return the first sublist of @var{lst} whose car is @code{eqv?}\n"
@@ -684,7 +623,6 @@ SCM_DEFINE (scm_member, "member", 2, 0, 0,
}
#undef FUNC_NAME
-
/* deleting elements from a list (delq, etc.) */