kiln: simplify ++frond call in %kiln-jump mark

This commit is contained in:
Tinnus Napbus 2023-09-16 01:34:01 +12:00
parent b2a3350afd
commit 00bc412619

View File

@ -10,21 +10,12 @@
++ json
=, enjs:format
|^ ^- ^json
%+ frond -.jum
?- -.jum
%add
%+ frond 'add'
(pairs ['old' (en-dock old.jum)] ['new' (en-dock new.jum)] ~)
::
%yea
%+ frond 'yea'
(pairs ['old' (en-dock old.jum)] ['new' (en-dock new.jum)] ~)
::
%nay
%+ frond 'nay'
(pairs ['old' (en-dock old.jum)] ['new' (en-dock new.jum)] ~)
::
%add (pairs ['old' (en-dock old.jum)] ['new' (en-dock new.jum)] ~)
%yea (pairs ['old' (en-dock old.jum)] ['new' (en-dock new.jum)] ~)
%nay (pairs ['old' (en-dock old.jum)] ['new' (en-dock new.jum)] ~)
%all
%+ frond 'all'
:- %a
%+ turn ~(tap by all.jum)
|= [old=dock new=dock]