fix: preserve IOContext for printing (#322)

* fix: preserve IOContext for printing

* Apply suggestions from code review

Co-authored-by: github-actions[bot] <41898282+github-actions[bot]@users.noreply.github.com>

---------

Co-authored-by: github-actions[bot] <41898282+github-actions[bot]@users.noreply.github.com>

Author: avik-pal

src/ConcreteRArray.jl

@@ -184,8 +184,10 @@ function Base.show(io::IO, X::ConcreteRScalar{T}) where {T}
         println(io, "<Empty buffer>")
         return nothing
     end
-    str = sprint(show, to_number(X))
-    return print(io, "$(typeof(X))($(str))")
+    print(io, "$(typeof(X))(")
+    show(io, to_number(X))
+    print(io, ")")
+    return nothing
 end
 
 function Base.print_array(io::IO, X::ConcreteRArray)
@@ -201,8 +203,10 @@ function Base.show(io::IO, X::ConcreteRArray)
         println(io, "<Empty buffer>")
         return nothing
     end
-    str = sprint(show, convert(Array, X))
-    return print(io, "$(typeof(X))($(str))")
+    print(io, "$(typeof(X))(")
+    show(io, convert(Array, X))
+    print(io, ")")
+    return nothing
 end
 
 function Base.getindex(a::ConcreteRArray{T}, args::Vararg{Int,N}) where {T,N}