              (graph [this]
                (get @db this)))
 
-(assert (= (graph *context*) (graph nil) (graph uuid/+null+)))
-
-(defmacro with-context [designator & body]
-  `(binding [*context* (intern-graph (graph ~designator))]
-     ~@body))
+;; (assert (= (graph *context*) (graph nil) (graph uuid/+null+)))
 
 ;; (graph #{[1 2 3]})
 ;;  => #<Graph 2d1b48b0-723d-1195-8101-7831c1bbb832 (1 triples)>

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defrecord Graph [id indices triples])



(defprotocol GraphContainer
  (id       [this])

     (-> (->Graph (uuid/the-uuid id) {} tuples)
       (add-index s p o)
       (add-index p o s)
       (add-index o s p))))


(defprotocol GraphBuilder
