(defn zip-select 
 "Returns the seq of locs matched by the specified selector."
 [locs selector]
  (if (node-selector? selector)
    (apply zip-select-nodes* locs selector) 
    (apply zip-select-fragments* locs selector)))