[Emacs-diffs] feature/byte-switch 8189b97 2/5: * lisp/emacs-lisp/bytecomp.el: Fix byte-switch codegen with symbols.

[Vibhav Pant]

branch: feature/byte-switch
commit 8189b97e5ca12aff8ea34617431a868010643b5b
Author: Vibhav Pant <address@hidden>
Commit: Vibhav Pant <address@hidden>

    * lisp/emacs-lisp/bytecomp.el: Fix byte-switch codegen with symbols.
---
 lisp/emacs-lisp/bytecomp.el |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 3c59c92..0da1418 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -4005,7 +4005,7 @@ that suppresses all warnings during execution of BODY."
                         (eq obj1 prev-var)
                         ;; discard duplicate clauses
                         (not (assq obj2 cases)))
-                   (push (list (eval obj2) body) cases)
+                   (push (list (if (consp obj2) (eval obj2) obj2) body) cases)
                  (if (eq condition t)
                      (progn (push (list 'default body) cases)
                             (throw 'break t))