klisp

commit 9e0abd962529037edaedd2540776801fcdc9a40a
parent dc686e46d16541c4c4fe079a6679eb2a7b8773a3
Author: Andres Navarro <canavarro82@gmail.com>
Date:   Sun, 20 Mar 2011 02:55:03 -0300

Bugfix: code for checking errors in ftyped_bpredp asked for bad type of both arguments with an and instead of an or.

Diffstat:
M
src/kghelpers.c
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/kghelpers.c b/src/kghelpers.c
@@ -188,7 +188,7 @@ void ftyped_bpredp(klisp_State *K, TValue *xparams, TValue ptree, TValue denv)
 	    tail = kcdr(tail); /* tail only advances one place per iteration */
 	    TValue second = kcar(tail);
 
-	    if (!(*typep)(first) && !(*typep)(second)) {
+	    if (!(*typep)(first) || !(*typep)(second)) {
 		/* TODO show expected type */
 		klispE_throw_extra(K, name, ": bad argument type");
 		return;