diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-08-31 12:13:50 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-08-31 12:13:50 +0000 |
commit | dee01b012cd5179b70a2e361ee08c364ed9f3314 (patch) | |
tree | 342478de9cb5237437a734aa88b7c9fe26533845 /libguile/list.c | |
parent | b29058ffee392969b448f8157afaf370c17a736c (diff) | |
download | guile-dee01b012cd5179b70a2e361ee08c364ed9f3314.tar.gz |
* Removed deprecated stuff.
* Some more renamings to SCM_<filename>_H.
Diffstat (limited to 'libguile/list.c')
-rw-r--r-- | libguile/list.c | 62 |
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.) */ |