binary-search: check +eq+ last.

db4
John Benediktsson 2012-07-13 16:21:18 -07:00
parent e8024370f7
commit d51a0e1647
1 changed files with 1 additions and 1 deletions

View File

@ -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