Merge pull request #1353 from urbit/fix-play

Fix jet mismatch in play

bin/ivory.pill

@@ -1,3 +1,3 @@
 version https://git-lfs.github.com/spec/v1
-oid sha256:96b1f1ad730789b1d557aac66b847047c98341bcf436e1927f40f082a728d641
-size 3816083
+oid sha256:e0fc64a80074ed3c62fa3f9f5c85ee606bf87e063b2f1dee8a110d7750cf8c76
+size 4232444

bin/solid.pill

@@ -1,3 +1,3 @@
 version https://git-lfs.github.com/spec/v1
-oid sha256:e4a4f8f86b18de5e410caeb491eecf8cf4fe24fbaba03ad8183b55a13eee154a
-size 9108350
+oid sha256:054d477c7747198b4bbfa1027715ea445696af7eedffb63abe03b8ed80e51546
+size 9211844

pkg/arvo/sys/hoon.hoon

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