无法识别的符号'＆lt;'在黎曼

Question

(tcp-server {:host "127.0.0.1" :port 5555})

(let [userindex1 (default :ttl 300 (update-index (index)))])  
  (let [email (mailer {....email configuration})]
            (streams
        (where (service "log")
            (smap
              (fn [events]
               (let [count-of-transaction (count (filter #(= "error" (:type %)) events))]
                  (event
                  {
                     :status "Failure"
                     :metric  count-of-failures 
                     :total-fail (< count-of-failures 2)})))

              (where (and (= (:status event) "Failure")
                          (:total-fail event))


                (email "xxx@xx.com")
                 )prn))))

当我使用>符号:total-fail (> count-of-failures 2)时，但当我使用小于符号<时，我收到unrecognized symbol <错误。如何使用小于符号。

提前致谢