 (def minute (* 60 second))
 (def hour (* 60 minute))
 
-(defn in-milliseconds [n] (/ n millisecond))
-(defn in-seconds [n] (/ n second))
-(defn in-minutes [n] (/ n minute))
-(defn in-hours [n] (/ n hour))
+(defn in-milliseconds [ms] ms)
+(defn in-seconds [ms] (/ ms second))
+(defn in-minutes [ms] (/ ms minute))
+(defn in-hours [ms] (/ ms hour))
 
-(defn fps-channel-fn
+(defn- fps-channel-fn
   [n]
   (fn [graph opts]
     (let [ms-per-frame (/ 1000 n)


#+cljs
(defn delay
  [ms sig]
  (z/splice (fn [to from]
              (let [waiting (async/chan (+ 1000 ms))

      out)))

(defn every
  "Takes a time interval `ms`. The resulting signal is the current time, updated
  every `ms` milliseconds."
  [ms]
  (z/input (t/now) [::every ms] (every-channel-fn ms)))

