           (merge
             (nice-angles ascmc (:angles want))
             (nice-houses cusps (:houses want)))))
-      (if (:meta want) {:wanted (dissoc want :meta)} {})))))
+      (if (:meta want) {:wanted (dissoc want :meta)
+                        :result @re})))))

                     :TrueNode :Uranus :Neptune :Pluto]
            :angles [:Asc :MC]
            :houses "O"
            :meta false})

(defn- prepare
  ([] defaults)
  ([stuff]
   (let [want (merge defaults stuff)
         jd (utc-to-jd (:utc want))]
    (assoc want :jd jd))))

(defn- geo? [geo]
  (if (and

                  res (double-array 6)
                  err (StringBuffer.)
                  rc (.swe_calc_ut sw
                                   jd
                                   what
                                   flag
                                   res
