         (let [cusps (double-array 13)
               ascmc (double-array 10)
               rc (.swe_houses sw
-                              jd
-                              0 ;; what flag?
+                              (:jd want)
+                              0 ;; TODO: flags?
                               (:lat (:geo want))
                               (:lon (:geo want))
                               (int (coerce-houses (:houses want)))

      (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)}
        {}))))
