Fixed ford ot anchor at current main revision, not time

This commit is contained in:
Anton Dyudin 2015-02-19 19:55:18 -08:00
parent a6d26afc84
commit efb31bd7f9

View File

@ -494,7 +494,10 @@
=+ ^= bem ^- beam
:_ pax
?: &(=(p.bek our) =(q.bek %main)) bek
=+ oak=[our %main %da now]
=+ ren=(ska %cw (tope [our %main %da now] ~)) :: XX at requested one
?. ?=([~ ~ @u] ren)
bek
=+ oak=[our %main %ud u.u.ren]
?: ?=([~ ~ *] (ska %cy (tope [oak pax])))
oak
bek