lib.clj: (dorun (map ... -> (doseq ...

1 files changed, 2 insertions, 3 deletions

diff --git a/lib/lib.clj b/lib/lib.clj
index daa61ea3..c97a17a5 100644
--- a/lib/lib.clj
+++ b/lib/lib.clj
@@ -259,9 +259,8 @@
         (when *verbose*
           (printf "(clojure/in-ns '%s)\n" (ns-name *ns*))
           (printf "(clojure/refer '%s" namespace)
-          (dorun (map
-                  #(printf " %s '%s" (key %) (print-str (val %)))
-                  filter-opts))
+          (doseq opt filter-opts
+            (printf " %s '%s" (key opt) (print-str (val opt))))
           (printf ")\n"))
         (apply refer namespace (mapcat seq filter-opts))))))