mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 15:40:19 +02:00
Code Activity

(count): Rewrite in C, avoiding non-tail recursion.

Browse source
This commit is contained in:
Kevin Ryde 2003-12-02 21:12:20 +00:00
parent f1efbdf3f1
commit 110348aee9
3 changed files with 104 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

1
srfi/srfi-1.h
View file

@ -32,6 +32,7 @@
# define SCM_SRFI1_API extern
#endif
SCM_SRFI1_API SCM scm_srfi1_count (SCM pred, SCM lst1, SCM rest);
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);