Fix "every other" sync bug.

This commit is contained in:
C. Guy Yarvin 2014-08-13 15:47:08 -07:00
parent 7a25b4d59f
commit 906a27b19b

View File

@ -363,18 +363,13 @@
$(xiq t.xiq, xaq [i.xiq xaq]) $(xiq t.xiq, xaq [i.xiq xaq])
=+ huy=(~(aeon ze lim dom ran) q.mot) =+ huy=(~(aeon ze lim dom ran) q.mot)
?~ huy ?~ huy
?: =(let.dom u.nab)
$(xiq t.xiq, xaq [i.xiq xaq])
?> ?=(^ hit.dom)
=+ ptr=[%ud +(let.dom)] =+ ptr=[%ud +(let.dom)]
::=+ fud=(flop (scag (sub let.dom u.nab) `(list frog)`hit.dom))
=+ fud=`nako`(~(gack ze lim dom ran) u.nab let.dom) =+ fud=`nako`(~(gack ze lim dom ran) u.nab let.dom)
%= $ %= $
xiq t.xiq xiq t.xiq
xaq [[p.i.xiq [%| ptr q.mot]] xaq] xaq [[p.i.xiq [%| ptr q.mot]] xaq]
..wake (bleb p.i.xiq let.dom fud) ..wake (bleb p.i.xiq let.dom fud)
== ==
::=+ fud=(flop (scag (sub u.huy u.nab) yad))
=+ fud=(~(gack ze lim dom ran) u.nab u.huy) =+ fud=(~(gack ze lim dom ran) u.nab u.huy)
%= $ %= $
xiq t.xiq xiq t.xiq