clay: fix %sole-effect->%json conversion

This commit is contained in:
Ted Blackman 2020-05-05 18:24:16 -04:00
parent 58d3820e41
commit 3ad411646b
2 changed files with 10 additions and 5 deletions

View File

@ -1,3 +1,3 @@
version https://git-lfs.github.com/spec/v1
oid sha256:880523cb6208ad651d2fcef792c2b43e9dbf2d8721f9e3cafdf81be120e78c33
size 13150614
oid sha256:35f37d5c98a4f7b81e633179d27d458ed5b09a106d45ef4581f4e982923bb02b
size 13198731

View File

@ -2883,11 +2883,16 @@
=^ top stack.nub pop-stack
=. casts.cache.nub (~(put by casts.cache.nub) [a b] [tube.res top])
[tube.res nub]
:: try +grow
:: try +grow; is there a +grow core with a .b arm?
::
=^ old=vase nub (build-fit %mar a)
=/ row (mule |.((slap old (ream (cat 3 b ':grow')))))
?: ?=(%& -.row)
?: =/ ram (mule |.((slap old ^~((ream 'grow')))))
?: ?=(%| -.ram) %.n
=/ lab (mule |.((slab b p.p.ram)))
?: ?=(%| -.lab) %.n
p.lab
:: +grow core has .b arm; use that
::
:_ nub
^- tube
|= sam=vase