     (-> log-state
         (update ::lamport inc)
         (assoc ::entries [])))
-  (init (inc (::lamport log-state))))
+  (init (::context log-state) (inc (::lamport log-state))))
 
 (s/fdef synchronize
         :args (s/cat :lhs ::state

    ::context context})
  ;; FIXME: Honestly, this needs a high-level context
  ;; i.e. What is the purpose of this group of logs?
  ([start-clock]
   (init "FIXME: This arity should go away" start-clock))
  ([]
   ;; the 1-arity version should include the context.
   ;; *This* is the arity that should just go away
   (init 0)))

(defn file-writer-factory

  ;; worth writing this way instead
  Logger
  (log! [_ msg]
    (prn msg))
  ;; Q: Is there any point to calling .flush
  ;; on STDOUT?
  ;; A: Not according to stackoverflow.
