tisp

commit b484f12d9d245e1a3603d9baa50b37a59697b886
parent cf612e4f5790a4a5b1fd9d79a20f1ab5be3cc2bd
Author: Ed van Bruggen <edvb@uw.edu>
Date:   Wed, 28 Mar 2018 13:57:37 -0700

cond: Check if not nil instead of if true

Diffstat:
tisp.c
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/tisp.c b/tisp.c
@@ -599,7 +599,7 @@ prim_cond(Hash env, Val args)
 	for (v = args; !nilp(v); v = cdr(v))
 		if (!(cond = tisp_eval(env, car(car(v)))))
 			return NULL;
-		else if (vals_eq(cond, &t))
+		else if (!nilp(cond))
 			return tisp_eval(env, car(cdr(car(v))));
 	return &nil;
 }