diff options
author | Kevin Ryde <user42@zip.com.au> | 2005-05-03 22:56:01 +0000 |
---|---|---|
committer | Kevin Ryde <user42@zip.com.au> | 2005-05-03 22:56:01 +0000 |
commit | 597dbd4eea8b6b4dddd72593a22590d4c322baa5 (patch) | |
tree | b991ed9f30018cc021aa0532571af499340ef018 /srfi/srfi-1.h | |
parent | da02b978d015300e719830fbcf4cb3bcfa35597f (diff) | |
download | guile-597dbd4eea8b6b4dddd72593a22590d4c322baa5.tar.gz |
(drop-right!, drop-while,
lset-adjoin, reduce, reduce-right, span, take!, take-while,
take-while!): Rewrite in C.
Diffstat (limited to 'srfi/srfi-1.h')
-rw-r--r-- | srfi/srfi-1.h | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/srfi/srfi-1.h b/srfi/srfi-1.h index 922de3d4b..63896ed47 100644 --- a/srfi/srfi-1.h +++ b/srfi/srfi-1.h @@ -41,10 +41,13 @@ SCM_SRFI1_API SCM scm_srfi1_delete_x (SCM x, SCM lst, SCM pred); SCM_SRFI1_API SCM scm_srfi1_delete_duplicates (SCM lst, SCM pred); SCM_SRFI1_API SCM scm_srfi1_delete_duplicates_x (SCM lst, SCM pred); SCM_SRFI1_API SCM scm_srfi1_drop_right (SCM lst, SCM n); +SCM_SRFI1_API SCM scm_srfi1_drop_right_x (SCM lst, SCM n); +SCM_SRFI1_API SCM scm_srfi1_drop_while (SCM pred, SCM lst); SCM_SRFI1_API SCM scm_srfi1_filter_map (SCM proc, SCM list1, SCM rest); SCM_SRFI1_API SCM scm_srfi1_find (SCM pred, SCM lst); SCM_SRFI1_API SCM scm_srfi1_find_tail (SCM pred, SCM lst); SCM_SRFI1_API SCM scm_srfi1_length_plus (SCM lst); +SCM_SRFI1_API SCM scm_srfi1_lset_adjoin (SCM equal, SCM lst, SCM rest); SCM_SRFI1_API SCM scm_srfi1_list_copy (SCM lst); SCM_SRFI1_API SCM scm_srfi1_map (SCM proc, SCM arg1, SCM args); SCM_SRFI1_API SCM scm_srfi1_for_each (SCM proc, SCM arg1, SCM args); @@ -52,11 +55,18 @@ SCM_SRFI1_API SCM scm_srfi1_member (SCM obj, SCM ls, SCM pred); SCM_SRFI1_API SCM scm_srfi1_assoc (SCM key, SCM alist, SCM pred); SCM_SRFI1_API SCM scm_srfi1_partition (SCM pred, SCM list); SCM_SRFI1_API SCM scm_srfi1_partition_x (SCM pred, SCM list); +SCM_SRFI1_API SCM scm_srfi1_reduce (SCM proc, SCM def, SCM lst); +SCM_SRFI1_API SCM scm_srfi1_reduce_right (SCM proc, SCM def, SCM lst); SCM_SRFI1_API SCM scm_srfi1_remove (SCM pred, SCM list); SCM_SRFI1_API SCM scm_srfi1_remove_x (SCM pred, SCM list); +SCM_SRFI1_API SCM scm_srfi1_span (SCM pred, SCM lst); +SCM_SRFI1_API SCM scm_srfi1_span_x (SCM pred, SCM lst); SCM_SRFI1_API SCM scm_srfi1_split_at (SCM lst, SCM n); SCM_SRFI1_API SCM scm_srfi1_split_at_x (SCM lst, SCM n); +SCM_SRFI1_API SCM scm_srfi1_take_x (SCM lst, SCM n); SCM_SRFI1_API SCM scm_srfi1_take_right (SCM lst, SCM n); +SCM_SRFI1_API SCM scm_srfi1_take_while (SCM pred, SCM lst); +SCM_SRFI1_API SCM scm_srfi1_take_while_x (SCM pred, SCM lst); SCM_SRFI1_API void scm_init_srfi_1 (void); |