From cd4c747fb8cd6c65f18471aad54427d87b884ebc Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Wed, 17 Jun 2020 17:33:28 +0200 Subject: srfi-1: Rewrite 'find-tail' in Scheme. * libguile/srfi-1.c (scm_srfi1_find_tail): Remove. * libguile/srfi-1.h (scm_srfi1_find_tail): Likewise. * module/srfi/srfi-1.scm (find-tail): New procedure. --- libguile/srfi-1.h | 1 - 1 file changed, 1 deletion(-) (limited to 'libguile/srfi-1.h') diff --git a/libguile/srfi-1.h b/libguile/srfi-1.h index fa21dc42a..3faaaa428 100644 --- a/libguile/srfi-1.h +++ b/libguile/srfi-1.h @@ -33,7 +33,6 @@ SCM_INTERNAL SCM scm_srfi1_delete (SCM x, SCM lst, SCM pred); SCM_INTERNAL SCM scm_srfi1_delete_x (SCM x, SCM lst, SCM pred); SCM_INTERNAL SCM scm_srfi1_delete_duplicates (SCM lst, SCM pred); SCM_INTERNAL SCM scm_srfi1_delete_duplicates_x (SCM lst, SCM pred); -SCM_INTERNAL SCM scm_srfi1_find_tail (SCM pred, SCM lst); SCM_INTERNAL SCM scm_srfi1_length_plus (SCM lst); SCM_INTERNAL SCM scm_srfi1_lset_difference_x (SCM equal, SCM lst, SCM rest); SCM_INTERNAL SCM scm_srfi1_list_copy (SCM lst); -- cgit v1.2.3