binary-search: check +eq+ last.

diff --git a/basis/binary-search/binary-search.factor b/basis/binary-search/binary-search.factor
index db40408d5e9235ccf2ecda44459e8cb60c6dbd75..412e7e0c16907f609ffdc2f9960c5d0401dacc39 100644 (file)
--- 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