mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 20:30:28 +02:00
Code Activity

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

Browse source 
Backport from ‘master’.  See
<https://debbugs.gnu.org/cgi/bugreport.cgi?bug=13835>.

* 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 Thien-Thi Nguyen
parent 4613c52c3b
commit 6c76a42de1
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

@ -374,8 +374,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))
{