Merge commit 'e39696' into cc-merge

This commit is contained in:
C. Guy Yarvin 2016-11-13 17:54:30 -08:00
commit ea999eb402

View File

@ -1869,7 +1869,10 @@
+>.$ +>.$
=. q.q.gam =. q.q.gam
=+ ole=(~(get by q.q.gam) [%& our.hid man]) =+ ole=(~(get by q.q.gam) [%& our.hid man])
?^ ole (~(put by q.q.gam) [%& our.hid man] -.u.ole %received)
=+ ole=(~(get by q.q.gam) [%& src.hid man])
?~ ole q.q.gam ?~ ole q.q.gam
=. q.q.gam (~(del by q.q.gam) [%& src.hid man])
(~(put by q.q.gam) [%& our.hid man] -.u.ole %received) (~(put by q.q.gam) [%& our.hid man] -.u.ole %received)
=+ old=(~(get by known) p.q.gam) =+ old=(~(get by known) p.q.gam)
?~ old ?~ old