binary-search: check +eq+ last.

2012-07-13 16:21:18 -07:00 · 2012-07-13 16:21:18 -07:00 · d51a0e1647
parent e8024370f7
commit d51a0e1647
1 changed files with 1 additions and 1 deletions
--- a/basis/binary-search/binary-search.factor
+++ b/basis/binary-search/binary-search.factor
@ -14,9 +14,9 @@ IN: binary-search
        midpoint@ midpoint
    ] [
        midpoint quot call {
-            { +eq+ [ midpoint@ midpoint ] }
            { +lt+ [ seq from midpoint@ quot (search) ] }
            { +gt+ [ seq midpoint@ to quot (search) ] }
+            { +eq+ [ midpoint@ midpoint ] }
        } case
    ] if ; inline recursive