diff options
| -rw-r--r-- | luaotfload-database.lua | 14 | 
1 files changed, 6 insertions, 8 deletions
diff --git a/luaotfload-database.lua b/luaotfload-database.lua index 70a49ff..7eb0e05 100644 --- a/luaotfload-database.lua +++ b/luaotfload-database.lua @@ -175,13 +175,13 @@ find_files_indeed = function (acc, dirs, filter)      local dir   = dirs[#dirs]      dirs[#dirs] = nil -    local newdirs, newfiles = { }, { } +    local newfiles = { }      for ent in lfsdir (dir) do          if ent ~= "." and ent ~= ".." then              local fullpath = dir .. "/" .. ent              if filter (fullpath) == true then                  if lfsisdir (fullpath) then -                    newdirs[#newdirs+1] = fullpath +                    dirs[#dirs+1] = fullpath                  elseif lfsisfile (fullpath) then                      newfiles[#newfiles+1] = fullpath                  end @@ -189,8 +189,7 @@ find_files_indeed = function (acc, dirs, filter)          end      end      return find_files_indeed (tableappend (acc, newfiles), -                              tableappend (dirs, newdirs), -                              filter) +                              dirs, filter)  end  local dummyfilter = function () return true end @@ -1415,7 +1414,7 @@ process_dir_tree = function (acc, dirs)      local dir   = dirs[#dirs]      dirs[#dirs] = nil -    local newdirs, newfiles = { }, { } +    local newfiles = { }      local blacklist = names.blacklist      for ent in lfsdir (dir) do          --- filter right away @@ -1424,7 +1423,7 @@ process_dir_tree = function (acc, dirs)              if lfsisdir (fullpath)              and not lpegmatch (p_blacklist, fullpath)              then -                newdirs[#newdirs+1] = fullpath +                dirs[#dirs+1] = fullpath              elseif lfsisfile (fullpath) then                  if lpegmatch (p_font_extensions, stringlower(ent)) then                      newfiles[#newfiles+1] = fullpath @@ -1432,8 +1431,7 @@ process_dir_tree = function (acc, dirs)              end          end      end -    return process_dir_tree (tableappend (acc, newfiles), -                             tableappend (dirs, newdirs)) +    return process_dir_tree (tableappend (acc, newfiles),dirs)  end  --- string -> string list  | 
