mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-07 18:30:25 +02:00
Code Activity

srfi-1 append-reverse!: move from C to Scheme

Browse source 
* libguile/srfi-1.c (scm_srfi1_append_reverse_x): delete.
* libguile/srfi-1.h (scm_srfi1_append_reverse_x): delete.
* module/srfi/srfi-1.scm: add append-reverse!.
This commit is contained in:
Rob Browning 2024-07-17 20:30:20 -05:00
parent 17281519df
commit 3cb6309f62
3 changed files with 22 additions and 34 deletions
Download patch file Download diff file Expand all files Collapse all files

1
libguile/srfi-1.h
View file

@ -24,7 +24,6 @@
#include "libguile/scm.h"
SCM_INTERNAL SCM scm_srfi1_append_reverse_x (SCM revhead, SCM tail);
SCM_INTERNAL SCM scm_srfi1_count (SCM pred, SCM list1, SCM rest);
SCM_INTERNAL SCM scm_srfi1_delete_duplicates (SCM lst, SCM pred);
SCM_INTERNAL SCM scm_srfi1_delete_duplicates_x (SCM lst, SCM pred);