         (number? (:lon geo)))
     true
     false))
+
+(defn- angles? [what]
+  (or (= true what) (and (vector? what) (> (count what) 0))))
+
+(defn- houses? [what]
+  (boolean what))
 
 (defn- coerce-houses [hs]
   (if (= (type hs) java.lang.Character)

              {(lookup what) {:lon (aget res 0)
                              :lat (aget res 1)
                              :sdd (aget res 3)}})))}
      (if (valid-geo? (:geo want))
        (let [cusps (double-array 13)
              ascmc (double-array 10)
              rc (.swe_houses sw

               :angles []
               :houses "O"})

(defn- geo? [geo]
  (if (and
        (map? geo)
        (contains? geo :lat)
