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

6. emits %11 and %12 (4K)

Browse Source
This commit is contained in:
Joe Bryan 2018-10-10 18:58:19 -04:00
parent 4693f111ff
commit ad6c489528
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.travis/pin-parent-pill-pier.url
View File

@ -1 +1 @@
https://ci-piers.urbit.org/zod-0cbd5e54e979046dc64910eed6d72de91bddd5fd.tgz https://ci-piers.urbit.org/zod-4693f111ff491a0a214a9a3bcf63af9c7c804bc7.tgz

2
.travis/pin-vere-commit.txt
View File

@ -1 +1 @@
f64b5c8f801d4ef64c1c9e0a2e4ceefe159bf9e7 c3ca5c24b6b346b0d00695217c16f4d224e17653

6
sys/hoon.hoon
View File

@ -10152,7 +10152,7 @@
:: ::
{$dtkt *} {$dtkt *}
=+ nef=$(gen [%kttr p.gen]) =+ nef=$(gen [%kttr p.gen])
[p.nef [%14 [%1 %151 p.nef] q:$(gen q.gen, gol %noun)]] [p.nef [%12 [%1 %151 p.nef] q:$(gen q.gen, gol %noun)]]
:: ::
{$dtls *} [(nice [%atom %$ ~]) [%4 q:$(gen p.gen, gol [%atom %$ ~])]] {$dtls *} [(nice [%atom %$ ~]) [%4 q:$(gen p.gen, gol [%atom %$ ~])]]
{$sand *} [(nice (play gen)) [%1 q.gen]] {$sand *} [(nice (play gen)) [%1 q.gen]]
@ -10187,7 +10187,7 @@
:: ?: &(huz !?=(%|(@ [?(%sgcn %sgls) ^]) p.gen)) :: ?: &(huz !?=(%|(@ [?(%sgcn %sgls) ^]) p.gen))
:: hum :: hum
:- p.hum :- p.hum
:+ %13 :+ %11
?- p.gen ?- p.gen
@ p.gen @ p.gen
^ [p.p.gen q:$(gen q.p.gen, gol %noun)] ^ [p.p.gen q:$(gen q.p.gen, gol %noun)]
@ -10238,7 +10238,7 @@
{$dbug *} {$dbug *}
~_ (show %o p.gen) ~_ (show %o p.gen)
=+ hum=$(gen q.gen) =+ hum=$(gen q.gen)
[p.hum [%13 [%spot %1 p.gen] q.hum]] [p.hum [%11 [%spot %1 p.gen] q.hum]]
:: ::
{$zpcm *} [(nice (play p.gen)) [%1 q.gen]] :: XX validate! {$zpcm *} [(nice (play p.gen)) [%1 q.gen]] :: XX validate!
{$lost *} {$lost *}