Reinstate fast probe.

This commit is contained in:
C. Guy Yarvin 2018-01-31 13:43:57 -08:00
parent 3b99f4c269
commit ebf5751a67

View File

@ -6939,7 +6939,9 @@
:+ %cnts
[[%& 1] ~]
:_ ~
[fetch-wing ersatz:clear(mod any)]
:: correct but slow
:: [fetch-wing ersatz:clear(mod any)]
[fetch-wing ersatz:clear(mod ?~(def [%axil %cell] u.def))]
?: =(& top)
[%tsgr [%wtpt fetch-wing luz [%$ 1]] boc]
[%tsgr luz boc]