 (ns org.gavrog.clojure.delaney
   (:use (clojure [test])
-        (org.gavrog.clojure [util :only [empty-queue pop-while]]))
+        (org.gavrog.clojure [util :only [empty-queue pop-while unique]]))
   (:import (org.gavrog.joss.dsyms.basic DelaneySymbol)
            (java.io Writer)))
 

             [i (into {} (for [D (elements ds)
                               :when (v ds i (inc i) D)]
                           [D (v ds i (inc i) D)]))])))

(deftype DSymbol [dim size s# v#]
  IDSymbol

               (= (ops self) (ops other))
               (= (vs self) (vs other)))))

(defmethod print-method DSymbol [ds ^Writer w]
  (print-method (list (symbol "DSymbol.")
                      (dim ds)
