 
 (defn run-no-commands
   "For use in [[make-monad-command-config]] when there are no commands."
-  [run-any env state m]
+  [_run-any _env _state _m]
   unknown-command)
 
 (defn combine-monad-command-configs

  "
  [^MonadCommandConfig command-config m & [state]]
  (let [res (run-monadic-swiss-army command-config m state)
        [r state] res]
    (if (exception-value? r)
      (throw (exception-value-exception r)))
      res))

(defn reify-as
  "Adds `reification` meta data to `m` that helps utilities (like the

        unknown-command (fn [bind m]
                          (if-let [{line :line column :column statement :statement} (meta bind)]
                            (c/assertion-violation `run-free-reader-state-exception
                                                   (str "unknown monad command in bind, line " line ", column " column ": " m)
                                                   bind m
                                                   statement)
                            (c/assertion-violation `run-free-reader-state-exception
                                                   (str "unknown monad command in bind: " m)
                                                   bind m)))]
    (letfn [(run [env state m]
              (cond
