traverse q.ask to prevent leak

This commit is contained in:
Ted Blackman 2019-01-14 15:58:50 -08:00
parent 85a646de54
commit eaa53bbb14

View File

@ -757,7 +757,19 @@
$them :: outbound request
?~ p.kyz
?~ sud=(~(get by kes) hen)
:: delete an element from q.ask by traversing to prevent leakage
::
=. q.ask
=/ qas ~(tap by q.ask)
|- ^+ q.ask
?~ qas
q.ask
?: =(hen p.q.i.qas)
(~(del by q.ask) p.i.qas)
$(qas t.qas)
::
+>.$
::
=. +>.$
%_ +>.$
mow :_(mow [ged [%give %thus u.sud ~]])