jclaggett

(ns xflib)
  
(defn demultiplex [n] 
  (if (= n 1)
    identity
    (let [expected-result-calls* (atom n)
          shared-reducer* (atom nil)
          reduced-value* (atom nil)]
      (fn [r] 
        (if-let [shared-reducer @shared-reducer*]

jclaggett

(ns ezducerdemo)

;;
;; 1st take
;;

(defn ezducer [constructor]
    (fn [reducer]
      (let [steps (fn [a vs] 
                    ;; Use loop/recur instead of reduce to avoid reduce's