show(::Sem): respect existing :compact key

Author: Alexey Stukalov

src/frontend/specification/Sem.jl

@@ -612,11 +612,14 @@ _subtype_info(::Sem) = ""
 _subtype_info(::SemFiniteDiff) = " : Finite Difference Approximation"
 
 function Base.show(io::IO, sem::AbstractSem)
+    # if not specified, use compact printing for larger models
+    if !haskey(io, :compact) && length(loss_terms(sem)) >= 5
+        io = IOContext(io, :compact => true)
+    end
     print(io, "Structural Equation Model")
     print(io, _subtype_info(sem))
     print("\n")
     print(io, "- Loss Functions \n")
-    io = length(loss_terms(sem)) >= 5 ? IOContext(io, :compact => true) : io
     for term in loss_terms(sem)
         print(io, "  > ")
         print(io, term)