diff options
author | Kevin Ryde <user42@zip.com.au> | 2005-03-15 21:15:24 +0000 |
---|---|---|
committer | Kevin Ryde <user42@zip.com.au> | 2005-03-15 21:15:24 +0000 |
commit | 2b077051db7a6eb29f71cab272a31c13cd830678 (patch) | |
tree | e66065aa7a1b0c58e72afbeaf5f7e60a84855ab8 /srfi/srfi-1.h | |
parent | cc93eace994f7bee9140db0992988b1e37ed2abb (diff) | |
download | guile-2b077051db7a6eb29f71cab272a31c13cd830678.tar.gz |
(drop-right, partition!, remove!, take-right): Rewrite in C.
remove! derived from core filter!.
Diffstat (limited to 'srfi/srfi-1.h')
-rw-r--r-- | srfi/srfi-1.h | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/srfi/srfi-1.h b/srfi/srfi-1.h index 636345d0a..017211cc0 100644 --- a/srfi/srfi-1.h +++ b/srfi/srfi-1.h @@ -37,6 +37,7 @@ SCM_SRFI1_API SCM scm_srfi1_delete (SCM x, SCM lst, SCM pred); 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_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); @@ -46,7 +47,10 @@ SCM_SRFI1_API SCM scm_srfi1_for_each (SCM proc, SCM arg1, SCM args); 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_remove (SCM pred, SCM list); +SCM_SRFI1_API SCM scm_srfi1_remove_x (SCM pred, SCM list); +SCM_SRFI1_API SCM scm_srfi1_take_right (SCM lst, SCM n); SCM_SRFI1_API void scm_init_srfi_1 (void); |