        (list name))
       ((quote define-minor-mode)
        (list (cons 'defun name)
-             (or (when-let* ((rest (member :variable body)))
+             (or (when-let ((rest (member :variable body)))
                    (cadr rest))
                  name)))
       (_ (error "Unexpected definition type %S" type)))))

patch's original definition. NAME and TYPE are as returned by
`el-patch-get'."
  (interactive (el-patch--select-patch))
  (if-let* ((patch-definition (el-patch-get name type)))
      (let* ((expected-definition (el-patch--resolve-definition
                                   patch-definition nil))
             (name (cadr expected-definition))

This restores the original functionality of the object being
patched. NAME and TYPE are as returned by `el-patch-get'."
  (interactive (el-patch--select-patch))
  (if-let ((patch-definition (el-patch-get name type)))
      (eval `(el-patch--stealthy-eval ,(el-patch--resolve-definition
                                        patch-definition nil)))
    (error "There is no patch for %S %S" type name)))
