detect thread block in nodejs

blockcheck.cljs

(defn detectBlock []
  (let [interval   500
        blockDelta 5]
    (js/setInterval
     (fn []
       (let [last (.hrtime js/process)]
         (js/setImmediate 
          (fn [] 
            (let [delta (* 1e-6 (aget (.hrtime js/process last) 1))]
              (when (< blockDelta delta)
                (js/console.log "node.eventloop_blocked" delta)))))))
     interval)))