~ chicken-core (chicken-5) 3d545a9e245dc943f4b8afcfb20b71d0c5dc1f3f


commit 3d545a9e245dc943f4b8afcfb20b71d0c5dc1f3f
Author:     Moritz Heidkamp <moritz@twoticketsplease.de>
AuthorDate: Wed Feb 5 23:26:39 2014 +0100
Commit:     Peter Bex <peter.bex@xs4all.nl>
CommitDate: Thu Feb 6 08:48:35 2014 +0100

    Remove list argument check from C_u_i_memq
    
    This was erroneously added in 0a52536b7cb6b3d5a35ecc8f4c11131041ae873a
    
    Signed-off-by: Peter Bex <peter.bex@xs4all.nl>

diff --git a/runtime.c b/runtime.c
index 9575d800..f184d713 100644
--- a/runtime.c
+++ b/runtime.c
@@ -5600,9 +5600,6 @@ C_regparm C_word C_fcall C_u_i_memq(C_word x, C_word lst)
     else lst = C_u_i_cdr(lst);
   }
 
-  if(lst!=C_SCHEME_END_OF_LIST)
-    barf(C_BAD_ARGUMENT_TYPE_ERROR, "memv", lst);
-
   return C_SCHEME_FALSE;
 }
 
Trap