Fix logic in project's file insertion

The function "file_search" in core.init was sometimes giving a wrong index
value, off by one.

The problem happened for example when the entry to search was "less than"
the first entry, the function returned a value of two instead of one as
expected.

The bug was easily observed creating a new directory with a name that comes
as the first in alphabetical order within the project.

1 files changed, 2 insertions, 3 deletions

diff --git a/data/core/init.lua b/data/core/init.lua
index 6f3754e4..f5d38ac0 100644
--- a/data/core/init.lua
+++ b/data/core/init.lua
@@ -191,7 +191,6 @@ end
 local function file_search(files, info)
   local filename, type = info.filename, info.type
   local inf, sup = 1, #files
-  if sup <= 0 then return 1, false end
   while sup - inf > 8 do
     local curr = math.floor((inf + sup) / 2)
     if system.path_compare(filename, type, files[curr].filename, files[curr].type) then
@@ -200,12 +199,12 @@ local function file_search(files, info)
       inf = curr
     end
   end
-  repeat
+  while inf <= sup and not system.path_compare(filename, type, files[inf].filename, files[inf].type) do
     if files[inf].filename == filename then
       return inf, true
     end
     inf = inf + 1
-  until inf > sup or system.path_compare(filename, type, files[inf].filename, files[inf].type)
+  end
   return inf, false
 end