fix door search

This commit is contained in:
Philip C Monk 2014-12-09 19:54:42 -05:00
parent a115d95037
commit cf405ac9de

View File

@ -429,7 +429,8 @@
:_ pax
?: &(=(p.bek our) =(q.bek %main)) bek
=+ oak=[our %main %da now]
?. =(~ (ska %cy (tope [oak pax]))) oak
?: ?=([~ ~ *] (ska %cy (tope [oak pax])))
oak
bek
(cope (fade cof %hook bem) abut:(meow bem ~))
::