Fixed ++reap product type

2024-11-13 08:38:43 +03:00 · 2014-10-13 17:48:22 -07:00 · 2014-10-13 17:48:22 -07:00 · ccd3c7e07e
commit ccd3c7e07e
parent 38feec07ec
1 changed files with 3 additions and 4 deletions
--- 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