summaryrefslogtreecommitdiff
path: root/srfi/srfi-1.h
diff options
context:
space:
mode:
authorKevin Ryde <user42@zip.com.au>2005-03-15 21:15:24 +0000
committerKevin Ryde <user42@zip.com.au>2005-03-15 21:15:24 +0000
commit2b077051db7a6eb29f71cab272a31c13cd830678 (patch)
treee66065aa7a1b0c58e72afbeaf5f7e60a84855ab8 /srfi/srfi-1.h
parentcc93eace994f7bee9140db0992988b1e37ed2abb (diff)
downloadguile-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.h4
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);