From 6c76a42de1d33c8306db3ce958899b5f0216c240 Mon Sep 17 00:00:00 2001
From: David Kastrup <dak@gnu.org>
Date: Wed, 27 Feb 2013 20:45:08 -0500
Subject: [PATCH] Let reverse! accept arbitrary types as second argument
 (new_tail)
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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>
---
 libguile/list.c | 2 --
 1 file changed, 2 deletions(-)

diff --git a/libguile/list.c b/libguile/list.c
index 07b96f5a7..e8b19767a 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))
     {