From 0cf50ae4c064bd2d8960ffd1e14f97402b8f5157 Mon Sep 17 00:00:00 2001
From: "Arnold D. Robbins" <arnold@skeeve.com>
Date: Mon, 10 Oct 2011 21:53:13 +0200
Subject: Remove some compile time warnings.

---
 eval.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'eval.c')

diff --git a/eval.c b/eval.c
index df9570e3..cd5a5844 100644
--- a/eval.c
+++ b/eval.c
@@ -1418,7 +1418,7 @@ unwind_stack(long n)
 	if (stack_ptr < sp)
 		return NULL;
 
-	while (r = POP()) {
+	while ((r = POP()) != NULL) {
 		switch (r->type) {
 		case Node_frame:
 			cp = restore_frame(r);
-- 
cgit v1.2.3