fix internal of print_lineage

src/lineage.jl

@@ -195,28 +195,18 @@ Print a formatted representation of the lineage to the given `IO` object.
 * `skip::Bool = false` - If `true`, skip printing `UnclassifiedTaxon` and delimiter.
 """
 function print_lineage(io::IO, lineage::Lineage; delim::AbstractString=";", fill::Bool=false, skip::Bool=false)
-    name_line = String[] 
-    for taxon in lineage
-        if typeof(taxon) == UnclassifiedTaxon
-            if skip
-                continue
-            end
+    taxa = collect(lineage)
+    skip && filter!(taxon -> !(taxon isa UnclassifiedTaxon), taxa)
 
-            if fill
-                push!(name_line, name(taxon))
-            else
-                push!(name_line, "")
-            end
+    names = map(taxa) do taxon
+        if taxon isa UnclassifiedTaxon
+            fill ? name(taxon) : ""
         else
-            push!(name_line, name(taxon))
+            name(taxon)
         end
     end
 
-    if isempty(name_line)
-        return nothing
-    end
-
-    l = foldl((x,y) -> x*delim*y, name_line)
+    l = join(names, delim)
     print(io, l)
     return nothing
 end