Skip to content
Snippets Groups Projects
Commit a7b49bf7 authored by pfdietz's avatar pfdietz
Browse files

Fix bug in integer-binary-search

parent 20075975
No related branches found
No related tags found
No related merge requests found
...@@ -49,7 +49,8 @@ ...@@ -49,7 +49,8 @@
(setq lo mid) (setq lo mid)
(if (= mid hi) (if (= mid hi)
(return lo) (return lo)
(setq hi mid)))))) (setq hi mid))))
finally (return lo)))
(defun find-largest-exactly-floatable-integer (upper-bound) (defun find-largest-exactly-floatable-integer (upper-bound)
(integer-binary-search (integer-binary-search
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment