urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-12 10:29:01 +03:00
Code Issues Packages Projects Releases Wiki Activity

Fixed ++reap product type

Browse Source
This commit is contained in:
Anton Dyudin 2014-10-13 17:48:22 -07:00 committed by Anton Dyudin
parent 38feec07ec
commit ccd3c7e07e
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
arvo/hoon.hoon
View File

@ -702,10 +702,9 @@
:: ::
++ reap :: replicate ++ reap :: replicate
|* [a=@ b=*] |* [a=@ b=*]
=| c=(list) |- ^- (list ,_b)
|- ^- (list) ?~ a ~
?: =(a 0) c [b $(a (dec a))]
$(c [b c], a (dec a))
:: ::
++ reel :: right fold ++ reel :: right fold
~/ %reel ~/ %reel