brianru

From 4e21ed98c9084b60661ba206263e9855669b6eba Mon Sep 17 00:00:00 2001
From: Brian James Rubinton <brianrubinton@gmail.com>
Date: Sat, 6 Jan 2018 11:07:09 -0500
Subject: [PATCH] only process puts on take! when buffer is not full

---
 src/main/clojure/cljs/core/async/impl/channels.cljs   | 2 +-
 src/main/clojure/clojure/core/async/impl/channels.clj | 9 ++++++---
 2 files changed, 7 insertions(+), 4 deletions(-)

brianru

; call: (mktransition '(a more)
; expansion:
; (a (more (cdr str)))
(def mktransition (tn) (list (car tn) (list (last tn) '(cdr str))))

; call:
; (mktransitions '((a more)
;                  (d more)
;                  (r end)))
; expansion:

brianru

; written by Mark Huetsch and Brian J Rubinton
; same license as Arc

(require "lib/re.arc")

(= protocol* "HTTP/1.0"
   useragent* (+ "User-Agent: Mozilla/5.0 " 
                 "(Windows; U; Windows NT 5.1; uk; rv:1.9.1.2) "
                 "Gecko/20090729 "
                 "Firefox/3.5.2")