From 5a883cf7872bf46879726c5cb488b52318186707 Mon Sep 17 00:00:00 2001
From: Gav Wood <i@gavwood.com>
Date: Fri, 11 Apr 2014 00:37:12 -0400
Subject: [PATCH] Fix for.

---
 libethereum/Instruction.cpp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/libethereum/Instruction.cpp b/libethereum/Instruction.cpp
index 86b664fd9..f7d014b5d 100644
--- a/libethereum/Instruction.cpp
+++ b/libethereum/Instruction.cpp
@@ -674,10 +674,10 @@ static int compileLispFragment(char const*& d, char const* e, bool _quiet, bytes
 					o_code.push_back((byte)Instruction::JUMPI);
 
 					// Second fragment - negative.
-					appendCode(o_code, o_locs, codes[1], locs[1]);
+					appendCode(o_code, o_locs, codes[2], locs[2]);
 
 					// Third fragment - incrementor.
-					appendCode(o_code, o_locs, codes[2], locs[2]);
+					appendCode(o_code, o_locs, codes[1], locs[1]);
 
 					// Jump to beginning afterwards.
 					o_locs.push_back((unsigned)o_code.size());