From ccd3c7e07ebf922ac2c45dda98940aed5813a3e6 Mon Sep 17 00:00:00 2001
From: Anton Dyudin <ohaitch@gmail.com>
Date: Mon, 13 Oct 2014 17:48:22 -0700
Subject: [PATCH] Fixed ++reap product type

---
 arvo/hoon.hoon | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/arvo/hoon.hoon b/arvo/hoon.hoon
index 03c9405b92..bf4f5a45b7 100644
--- a/arvo/hoon.hoon
+++ b/arvo/hoon.hoon
@@ -702,10 +702,9 @@
 ::
 ++  reap                                                ::  replicate
   |*  [a=@ b=*]
-  =|  c=(list)
-  |-  ^-  (list)
-  ?:  =(a 0)  c
-  $(c [b c], a (dec a))
+  |-  ^-  (list ,_b)
+  ?~  a  ~
+  [b $(a (dec a))]
 ::
 ++  reel                                                ::  right fold
   ~/  %reel