urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-05 19:46:50 +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]
[%cncl *]
:^ %cnsg [%$ ~] p.gen
?. ?=([%zpcb ^ %cnzz @ ~] p.gen) q.gen
=+ rem=[%cnsg [%$ ~] p.gen q.gen]
?. ?=([%zpcb ^ %cnzz @ ~] p.gen) rem
=> .(p.gen `[@ ^ @ p=@tas ~]`p.gen)
:+ %sgzp [[%dtzz %tas 'slam'] [%dtzz %tas p.p.gen]]
q.gen
::
rem
[%cndt *] [%cnhp q.gen [p.gen ~]]
[%cnkt *] [%cnhp p.gen q.gen r.gen s.gen ~]
[%cnls *] [%cnhp p.gen q.gen r.gen ~]