- Rewrote mindwipe to ansi variant.

2004-05-26 09:34:08 +00:00 · 2004-05-26 09:34:08 +00:00 · b5ddd75d95
commit b5ddd75d95
parent 112e3799ab
1 changed files with 5 additions and 2 deletions
--- a/src/knowledge.h
+++ b/src/knowledge.h
@ -52,13 +52,16 @@ Termlist knowledgeNew (const Knowledge oldk, const Knowledge newk);

 //! Harnass macro for recursive procedures.
 #define mindwipe(k,recurse) \
+        Termlist tl; \
+	Term oldsubst; \
+	int flag; \
 	if (k != NULL && k->vars != NULL) { \
-		Termlist tl = k->vars; \
+		tl = k->vars; \
 		while (tl != NULL) { \
 			if (tl->term->subst != NULL) { \
 				Term oldsubst = tl->term->subst; \
 				tl->term->subst = NULL; \
-				int flag = recurse; \
+				flag = recurse; \
 				tl->term->subst = oldsubst; \
 				return flag; \
 			} \