;; If this symbol was already bound from an older load (default 12) and the
;; user has not customized/saved it, bump it to the new default.
(when (and (boundp 'madrigal-max-tool-rounds)
           (= madrigal-max-tool-rounds 12)
           (null (get 'madrigal-max-tool-rounds 'saved-value))
           (null (get 'madrigal-max-tool-rounds 'customized-value)))
  (setq-default madrigal-max-tool-rounds 64)
  (setq madrigal-max-tool-rounds 64))

             (unless (member unit '("char" "line" "word" "symbol" "sexp" "buffer"))
               (error "madrigal: move unit must be char/line/word/symbol/sexp/buffer"))
             (when (<= count 0)
               (error "madrigal: count must be > 0"))
             (with-current-buffer replica
               (let ((before (point)))
                (pcase unit
                  ("char" (funcall (if forward-p #'forward-char #'backward-char) count))

              (unless (member unit '("char" "line" "word" "symbol" "sexp" "buffer"))
                (error "madrigal: move unit must be char/line/word/symbol/sexp/buffer"))
              (when (< count 0)
                (error "madrigal: count must be >= 0"))
              (with-current-buffer replica
                (let ((before (point)))
                 (pcase unit
                   ("char" (funcall (if forward-p #'forward-char #'backward-char) count))

   (list
     '(:name "ops"
             :type array
             :items (:type object)
             :description "Array of operation objects."))
    :function (lambda (ops)
                (condition-case err
                    (madrigal--tool-exec-ops agent-id ops request-id)
                  (error
                   (madrigal--log-tool-op request-id
                                          "exec_ops failure"
                                          `((error . ,(error-message-string err))))

    (list
      '(:name "ops"
              :type array
              :items (:type object)
              :description "Array of operation objects."))
     :function (lambda (ops)
                 (condition-case err
                     (let ((ret (madrigal--tool-exec-ops agent-id ops request-id)))
                       (madrigal--log-tool-op request-id "exec_ops return" ret)
                       ret)
                   (error
                    (madrigal--log-tool-op request-id
                                           "exec_ops failure"
                                           `((error . ,(error-message-string err))))