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 version https://git-lfs.github.com/spec/v1
oid sha256:880523cb6208ad651d2fcef792c2b43e9dbf2d8721f9e3cafdf81be120e78c33 oid sha256:35f37d5c98a4f7b81e633179d27d458ed5b09a106d45ef4581f4e982923bb02b
size 13150614 size 13198731

View File

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