MayDaniel · November 21, 2010 15:58
diff --git a/*out*.clj b/*out*.clj
 (future-call (bound-fn [] (println 1)))

 ;;;

 (alter-var-root (var *out*) (constantly *out*))

 (do (future (println 1))
    (future (println 2))
    (doto (Thread. (fn [] (println 1)))
      (.start)))
	(future-call (bound-fn [] (println 1)))

	;;;

	(alter-var-root (var out) (constantly out))

	(do (future (println 1))
	(future (println 2))
	(doto (Thread. (fn [] (println 1)))
	(.start)))