From a6f00921ca79af93434e2b0b14ef9b5eca52f188 Mon Sep 17 00:00:00 2001
From: Nick Briggs <nicholas.h.briggs@gmail.com>
Date: Sun, 28 May 2017 19:35:13 -0700
Subject: [PATCH] condition and increment reversed in for-loop.

---
 src/loopsops.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/loopsops.c b/src/loopsops.c
index 2d4facd..41ba9f0 100644
--- a/src/loopsops.c
+++ b/src/loopsops.c
@@ -287,7 +287,7 @@ LispPTR LCFindVarIndex(register LispPTR iv, register LispPTR object) {
   {
     register int i;
 
-    for (i = 0; i++; (iNames = cdr(iNames)) != NIL_PTR) {
+    for (i = 0; (iNames = cdr(iNames)) != NIL_PTR; i++) {
       if (car(iNames) == iv) {
         ce->iNames = objptr->iNames;
         ce->iv = iv;