在Clojure中使用延迟卷积fn的麻烦

(ns my-namespace
  (:require [clojure.core.async :as async]))

(defn delayed-convolution [signal1 signal2]
  (let [result-chan (async/chan)]
    (async/go
      (let [convolution (map (fn [x]
                              (reduce + (map * signal2 (reverse x))))
                            (partition (count signal2) 1 signal1))]
        (async/onto-chan result-chan convolution)))
    result-chan))

(def signal1 [1 2 3 4 5])
(def signal2 [0.5 0.5])

(def result (async/<!! (delayed-convolution signal1 signal2)))
(println result)