fix /~~/~/at regression

This commit is contained in:
Anton Dyudin 2015-05-18 14:34:46 -07:00 committed by vere
parent 4114d8f5b9
commit b270089909

View File

@ -967,7 +967,7 @@
::
%at
=. ..ya abet.yac
=+ pez=process(pok p.ham)
=+ pez=process(pok p.ham, aut |)
?. ?=(%& -.pez) ~|(no-inject/p.ham !!)
?~ p.pez pez
?+ -.p.pez ~&(bad-inject/p.pez !!)