klisp

an open source interpreter for the Kernel Programming Language.
git clone http://git.hanabi.in/repos/klisp.git
Log | Files | Refs | README

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:
Msrc/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;