clay: clarify +compose-cast trace messages

This commit is contained in:
Joe Bryan 2023-05-16 16:42:13 -04:00
parent 401776545c
commit bbd43cc7d4

View File

@ -758,11 +758,13 @@
::
=/ jum (mule |.((slap old tsgl/[limb/b limb/%jump])))
?: ?=(%& -.jum)
%- (trace 4 |.("{<a>} -> {<b>}: +jump:{(trip b)}"))
(compose-casts a !<(mark p.jum) b)
=/ via !<(mark p.jum)
%- (trace 4 |.("{<a>} -> {<b>}: via {<via>} per +jump:{(trip a)}"))
(compose-casts a via b)
?: ?=(%& -.rab)
%- (trace 4 |.("{<a>} -> {<b>}: +grab:{(trip b)}"))
(compose-casts a !<(mark p.rab) b)
=/ via !<(mark p.rab)
%- (trace 4 |.("{<a>} -> {<b>}: via {<via>} per +grab:{(trip b)}"))
(compose-casts a via b)
?: ?=(%noun b)
%+ gain-leak cast+a^b
|= nob=state