         (when events
           (call-rescue events children))))))
 
-(defn fixed-time-window
+(defn- fixed-time-window-fn
   "A fixed window over the event stream in time. Emits vectors of events, such
   that each vector has events from a distinct n-second interval. Windows do
   *not* overlap; each event appears at most once in the output stream. Once an

          (doseq [w windows]
            (call-rescue w children)))))))


(defn window
  "Alias for moving-event-window."

                        ; No start time
                        (nil? @start-time)
                        (do
                          (ref-set start-time (start-time-fn n event))
                          (ref-set buffer [event])
                          nil)

