~ 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