Updated ++sa-unearth to correctly work with current subscription paths.

This commit is contained in:
Fang 2017-11-22 18:51:12 +01:00
parent caac75dc65
commit afa8402f2f

View File

@ -1695,8 +1695,8 @@
%- ~(rep in sup.bol)
|= {{b/bone s/ship p/path} c/(set bone)}
?. ?& (~(has in sis) s)
?=({@tas *} p)
=(i.p nom)
?=({$circle @tas *} p)
=(i.t.p nom)
==
c
(~(put in c) b)