From d2562588f28b28825fa01e694800ad40d83dc04d Mon Sep 17 00:00:00 2001
From: Scott Lystig Fritchie <slfritchie@snookles.com>
Date: Thu, 20 Feb 2014 19:16:39 +0900
Subject: [PATCH] Move the lists:reverse() in make_chains() to preserve input's
 order in the output

---
 prototype/corfurl/test/corfurl_pulse.erl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/prototype/corfurl/test/corfurl_pulse.erl b/prototype/corfurl/test/corfurl_pulse.erl
index d4a9f3d..5dd2a2f 100644
--- a/prototype/corfurl/test/corfurl_pulse.erl
+++ b/prototype/corfurl/test/corfurl_pulse.erl
@@ -566,7 +566,7 @@ make_chains(ChainLen, FLUs) ->
     make_chains(ChainLen, FLUs, [], []).
 
 make_chains(_ChainLen, [], SmallAcc, BigAcc) ->
-    lists:reverse([SmallAcc|BigAcc]);
+    [lists:reverse(SmallAcc)|BigAcc];
 make_chains(ChainLen, [H|T], SmallAcc, BigAcc) ->
     if length(SmallAcc) == ChainLen ->
             make_chains(ChainLen, T, [H], [SmallAcc|BigAcc]);