~ 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