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

fix play jet mismatch (missing tscm, different sand)

Browse Source
This commit is contained in:
pilfer-pandex 2019-07-17 16:37:14 -07:00
parent c5af9ffd84
commit a54d18a440
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
pkg/arvo/sys/hoon.hoon
View File

@ -10727,11 +10727,11 @@
{$rock *} |- ^- type {$rock *} |- ^- type
?@ q.gen [%atom p.gen `q.gen] ?@ q.gen [%atom p.gen `q.gen]
[%cell $(q.gen -.q.gen) $(q.gen +.q.gen)] [%cell $(q.gen -.q.gen) $(q.gen +.q.gen)]
{$sand *} |- ^- type {$sand *} ?@ q.gen
?@ q.gen ?: =(%n p.gen) ?>(=(0 q.gen) [%atom p.gen `q.gen])
?: =(%n p.gen) ?>(=(0 q.gen) [%atom p.gen ~ q.gen]) ?: =(%f p.gen) ?>((lte q.gen 1) bool)
?:(=(%f p.gen) ?>((lte q.gen 1) bool) [%atom p.gen ~]) [%atom p.gen ~]
[%cell $(q.gen -.q.gen) $(q.gen +.q.gen)] $(-.gen %rock)
{$tune *} (face p.gen sut) {$tune *} (face p.gen sut)
{$dttr *} %noun {$dttr *} %noun
{$dtts *} bool {$dtts *} bool
@ -10746,6 +10746,7 @@
{$sgzp *} ~_(duck(sut ^$(gen p.gen)) $(gen q.gen)) {$sgzp *} ~_(duck(sut ^$(gen p.gen)) $(gen q.gen))
{$sgbn *} $(gen q.gen) {$sgbn *} $(gen q.gen)
{$tsbn *} $(gen q.gen, sut $(gen p.gen)) {$tsbn *} $(gen q.gen, sut $(gen p.gen))
{$tscm *} $(gen q.gen, sut (busk p.gen))
{$wtcl *} =+ [fex=(gain p.gen) wux=(lose p.gen)] {$wtcl *} =+ [fex=(gain p.gen) wux=(lose p.gen)]
%- fork :~ %- fork :~
?:(=(%void fex) %void $(sut fex, gen q.gen)) ?:(=(%void fex) %void $(sut fex, gen q.gen))
@ -10754,7 +10755,7 @@
{$fits *} bool {$fits *} bool
{$wthx *} bool {$wthx *} bool
{$dbug *} ~_((show %o p.gen) $(gen q.gen)) {$dbug *} ~_((show %o p.gen) $(gen q.gen))
{$zpcm *} (play p.gen) {$zpcm *} $(gen p.gen)
{$lost *} %void {$lost *} %void
{$zpmc *} (cell $(gen p.gen) $(gen q.gen)) {$zpmc *} (cell $(gen p.gen) $(gen q.gen))
{$zpts *} %noun {$zpts *} %noun