Clojurians Log v2

Мне уже подсказали решение в issue на гитхабе

Спасибо, @dottedmag

Помогите написать foo, чтобы данный код

(defn a [x] x)
(defn b [x] (- x 5))
(def fs `[(a 1) (b 1)])
(defn foo [x]
  ;TODO)
(map foo fs)

(a 1) --> 1
(b 1) --> -4

Я осилил только такое:

(defn foo [x]
  (println x "-->" (eval x)))

(user/a 1) --> 1
(user/b 1) --> -4

Фишка в том, что в fs` заменять на ' нельзя

@kgofhedgehogs Расскажи?

Про Swing