fix kale recursion

This commit is contained in:
Ted Blackman 2019-07-11 14:45:40 -07:00
parent 86705ca446
commit 8db5dfd00b

View File

@ -562,13 +562,13 @@
|- ^+ this-su
?~ yez this-su
=* d i.yez
?. ?=([[%a @ @ *] *] d)
%- emit
[d %give %public-keys vent-result]
=/ our (slav %p i.t.i.d)
=/ who (slav %p i.t.t.i.d)
=/ =message [%public-keys-result who vent-result]
=. this-su
?. ?=([[%a @ @ *] *] d)
%- emit
[d %give %public-keys vent-result]
=/ our (slav %p i.t.i.d)
=/ who (slav %p i.t.t.i.d)
=/ =message [%public-keys-result who vent-result]
%- emit
:^ d
%pass