Fix last commit

* lisp/org.el (org-dynamic-block-define): Fix match.

lisp/org.el

@@ -9598,7 +9598,7 @@ TYPE is a string.  FUNC is the function creating the dynamic
 block of such type."
   (pcase (assoc type org-dynamic-block-alist)
     (`nil (push (cons type func) org-dynamic-block-alist))
-    (`(,def . ,_) (setcdr def func))))
+    (def (setcdr def func))))
 
 (defun org-dynamic-block-insert-dblock (type)
   "Insert a dynamic block of type TYPE.