klisp

commit 8f6215cef7f9a00cc25bec8a2bc6acc65c740951
parent 60e9432784c9c7236d290aa3a9bbc7610aec47b5
Author: Andres Navarro <canavarro82@gmail.com>
Date:   Tue,  8 Mar 2011 00:16:49 -0300

Bugfix: applicative combinations with a non-pair, non-nil ptree failed to signal an error (and segfaulted)

Diffstat:
M
src/keval.c
 | 
3
+++

1 file changed, 3 insertions(+), 0 deletions(-)
diff --git a/src/keval.c b/src/keval.c
@@ -115,6 +115,9 @@ void combine_cfn(klisp_State *K, TValue *xparams, TValue obj)
 		4, arg_ls, env, tail, tv2app(obj)->underlying);
 	    kset_cc(K, els_cont);
 	    ktail_call(K, K->eval_op, kcar(arg_ls), env);
+	} else {
+	    klispE_throw(K, "Not a list in applicative combination");
+	    return;
 	}
     }
     case K_TOPERATIVE: