tisp

commit 2f37d0706cc2ba869a104ad7bb3af7a17f3b656a
parent 723b82ae34443274e5c526fb7356483e234ccb03
Author: Ed van Bruggen <edvb@uw.edu>
Date:   Wed,  2 Oct 2019 21:24:20 -0700

Set optional function arg to nil if not given

Diffstat:
tisp.c
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/tisp.c b/tisp.c
@@ -288,7 +288,7 @@ static Hash
 hash_extend(Hash ht, Val args, Val vals)
 {
 	Val arg, val;
-	for (; !nilp(args) && !nilp(vals); args = cdr(args), vals = cdr(vals)) {
+	for (; !nilp(args); args = cdr(args), vals = cdr(vals)) {
 		if (args->t == PAIR) {
 			arg = car(args);
 			val = car(vals);