enq-limit

[procedure] enq-limit val q (o limit 1000)

(def enq-limit (val q (o limit 1000))
  (atomic
     (unless (< (qlen q) limit)
       (deq q))
     (enq val q)))