async_playground.cljs

(ns async-playground
  (:require-macros [cljs.core.async.macros :refer [go]])
  (:require [cljs.core.async :refer [>! <! chan]]))

(def ichan (chan))

(go (while true
      (let [o (<! ichan)]
        (println o))))

;;; Appears to have a buffering effect, where I need to execute it
;;; again to see the last value I put in echoed.
(go (>! ichan "ohai"))

(go (>! ichan "charnock"))

(def ichan2 (chan))

(def ochan (chan))

(go (while true
      (let [o (<! ichan2)]
        (>! ochan o))))

(go (>! ichan2 "ohai"))

(go (println (<! ochan)))

;;; This appears to be subject to the same sort of buffering issues.