         [utilize.seq :only (first-truthy-fn)])
   (:require [clojure.zip :as zip]))
 
-(defn regex? [thing]
-  (= (class thing) java.util.regex.Pattern))
+(defn regex? [x]
+  (= (class x) java.util.regex.Pattern))
 
 (defn classic-map? [x]
   (.isInstance clojure.lang.APersistentMap x))

  [f x]
  (cons (f (first x)) (rest x)))

(defn named? [thing]
  (instance? clojure.lang.Named thing))
  
(defn symbol-named?
  "Is the thing a symbol with the name given by the string?"
  [x string]
  (and (symbol? x)
       (= (name x) string)))

(defn first-named?
  "Is the form's first element a symbol whose name is the desired string?"
