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

      (get hs 0)
      \O)))

(defn calc [stuff]
  (let [want (merge defaults stuff)
        sw (SwissEph.)
        jd (utc-to-jd (:utc want))
        flag (. SweConst SEFLG_SPEED)]
    (merge
      {:bodies

              {:houses (zipmap (range 1 13) (rest cusps))}
              {}))))
      (if (boolean (:meta want))
        {:meta (dissoc want :meta)}
        {}))))
