(defn log-uncapture!
"Restores System.out and System.err to their original values."
[]
(dosync
(when-let [{old-out :out old-err :err} @*old-std-streams*]
(ref-set *old-std-streams* nil)
(System/setOut old-out)
(System/setErr old-err))))
Comments top
No comments for log-uncapture!. Log in to add a comment.