Peter Taoussanis ptaoussanis

## sente-ring-jetty9-adapter-example.clj
;; Please see https://gist.github.com/wavejumper/40c4cbb21d67e4415e20685710b68ea0

## stratch.clj
(ns scratch.core
  (:require [taoensso.encore :as enc]))

(defn wrap-once-in-a-while-1
  "Uses atom + `swap-vals!`"
  [^long msecs-period f]
  (let [last-executed_ (atom 0)]

    (fn wrapper [& args]
      (let [[old new]
	(ns scratch.core
	(:require [taoensso.encore :as enc]))

	(defn wrap-once-in-a-while-1
	"Uses atom + `swap-vals!`"
	[^long msecs-period f]
	(let [last-executed_ (atom 0)]

	(fn wrapper [& args]
	(let [[old new]