ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-11 04:48:00 +03:00
Code Issues Packages Projects Releases Wiki Activity

Revert "Reordered slam ~! to be more meaningful": information lost on net

Browse Source 
This reverts commit 9a97d0801362829ca9a78dfe60a9d3c560853b35.
This commit is contained in:
Anton Dyudin 2015-03-17 16:41:10 -07:00
parent 8a8041f338
commit 6ad6819867
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

@ -6136,12 +6136,11 @@
:: ::
[%cncb *] [%ktls [%cnzz p.gen] %cnts p.gen q.gen] [%cncb *] [%ktls [%cnzz p.gen] %cnts p.gen q.gen]
[%cncl *] [%cncl *]
:^ %cnsg [%$ ~] p.gen =+ rem=[%cnsg [%$ ~] p.gen q.gen]
?. ?=([%zpcb ^ %cnzz @ ~] p.gen) q.gen ?. ?=([%zpcb ^ %cnzz @ ~] p.gen) rem
=> .(p.gen `[@ ^ @ p=@tas ~]`p.gen) => .(p.gen `[@ ^ @ p=@tas ~]`p.gen)
:+ %sgzp [[%dtzz %tas 'slam'] [%dtzz %tas p.p.gen]] :+ %sgzp [[%dtzz %tas 'slam'] [%dtzz %tas p.p.gen]]
q.gen rem
::
[%cndt *] [%cnhp q.gen [p.gen ~]] [%cndt *] [%cnhp q.gen [p.gen ~]]
[%cnkt *] [%cnhp p.gen q.gen r.gen s.gen ~] [%cnkt *] [%cnhp p.gen q.gen r.gen s.gen ~]
[%cnls *] [%cnhp p.gen q.gen r.gen ~] [%cnls *] [%cnhp p.gen q.gen r.gen ~]