technomancy · December 10, 2016 12:48 · ericnormand · Aug 28, 2014
diff --git a/safe.clj b/safe.clj
 (doseq [n (all-ns)
        [_ v] (ns-map n)
        :when (and (var? v) (fn? @v))]
  (alter-var-root v (fn [original]
                      (fn [& args]
                        (try (apply original args)
                             (catch Exception _))))))
	(doseq [n (all-ns)
	[_ v] (ns-map n)
	:when (and (var? v) (fn? @v))]
	(alter-var-root v (fn [original]
	(fn [& args]
	(try (apply original args)
	(catch Exception _))))))