lein run / eval无法解析符号

Question

我正在尝试使用lein run运行此代码，但是我收到此错误：

java.lang.RuntimeException：无法在此上下文中解析符号：pd

奇怪的是，lein repl并且调用(-main)工作正常，没有错误 我做错了什么？

(ns test.core)

(defn pd [num denom]
  (if (zero? denom)
    0
    (/ num denom)))

(defn -main []
  (println
   ((eval
     (list 'fn
           '[x y]
           '(pd x y)))
    3 4)))