From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sun, 5 Feb 2023 14:04:51 +0000 (-0500)
Subject: * lisp/emacs-lisp/cconv.el (cconv-convert): Fix thinko
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=45525cafcbcc5205b7a3d53a6ae62c3ee31dfaf2;p=emacs.git

* lisp/emacs-lisp/cconv.el (cconv-convert): Fix thinko
---

diff --git a/lisp/emacs-lisp/cconv.el b/lisp/emacs-lisp/cconv.el
index e4268c2fb88..e8d639903c1 100644
--- a/lisp/emacs-lisp/cconv.el
+++ b/lisp/emacs-lisp/cconv.el
@@ -488,7 +488,7 @@ places where they originally did not directly appear."
             (_ (pcase cif
                  ('nil nil)
                  (`#',f
-                  (setf (cadr (car bf)) (if wrapped (nth 2 f) f))
+                  (setf (cadr (car bf)) (if wrapped (nth 2 f) cif))
                   (setq cif nil))
                  ;; The interactive form needs special treatment, so the form
                  ;; inside the `interactive' won't be used any further.