Clojurians Log v2

@alexmiller just curious: any progress on spec2 lately?

no

I'd like to model a binary tree with a map of the form {:payload 0 :left sub1 :right sub2}. Here's my spec for now:

(s/def ::binary-tree-2
  (s/with-gen
    (s/keys :req-un [::payload]
            :opt-un [::left ::right])
    #(gen/recursive-gen
      (fn [f] (gen/let [[val l r] (gen/tuple (s/gen int?) f f)]
               (merge
                {:payload val}
                (when l {:left l})
                (when r {:right r}))))
      (gen/return nil))))