ttn pushed a commit to branch p in repository guile. commit 6c76a42de1d33c8306db3ce958899b5f0216c240 Author: David Kastrup <d...@gnu.org> AuthorDate: Wed Feb 27 20:45:08 2013 -0500
Let reverse! accept arbitrary types as second argument (new_tail) 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 <m...@netris.org> --- libguile/list.c | 2 -- 1 file changed, 2 deletions(-) diff --git a/libguile/list.c b/libguile/list.c index 07b96f5..e8b1976 100644 --- a/libguile/list.c +++ b/libguile/list.c @@ -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)) {