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

Let reverse! accept arbitrary types as second argument (new_tail)

Browse source 
* libguile/list.c (scm_reverse_x): remove typecheck for 2nd arg.

Signed-off-by: Mark H Weaver <mhw@netris.org>
This commit is contained in:
David Kastrup 2013-02-27 20:45:08 -05:00 • committed by Mark H Weaver
parent b946e08a6a
commit a5d8f98c60
1 changed files with 0 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/list.c
View file

@ -377,8 +377,6 @@ SCM_DEFINE (scm_reverse_x, "reverse!", 1, 1, 0,
SCM_VALIDATE_LIST (1, lst);
if (SCM_UNBNDP (new_tail))
new_tail = SCM_EOL;
else
SCM_VALIDATE_LIST (2, new_tail);
while (!SCM_NULL_OR_NIL_P (lst))
{