steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/binary-search/binary-search.factor
View File

@ -14,9 +14,9 @@ IN: binary-search
midpoint@ midpoint midpoint@ midpoint
] [ ] [
midpoint quot call { midpoint quot call {
{ +eq+ [ midpoint@ midpoint ] }
{ +lt+ [ seq from midpoint@ quot (search) ] } { +lt+ [ seq from midpoint@ quot (search) ] }
{ +gt+ [ seq midpoint@ to quot (search) ] } { +gt+ [ seq midpoint@ to quot (search) ] }
{ +eq+ [ midpoint@ midpoint ] }
} case } case
] if ; inline recursive ] if ; inline recursive