diff options
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/comp.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index a16cf1dcc88..81612398c7b 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -2299,7 +2299,7 @@ Return the list of m-var ids nuked." (`((set ,l-val (direct-call ,func . ,args)) (comment ,_comment) (return ,ret-val)) - (when (and (eq func (comp-func-name comp-func)) + (when (and (string= func (comp-func-c-name comp-func)) (eq l-val ret-val)) (let ((tco-seq (comp-form-tco-call-seq args))) (setf (car insns-seq) (car tco-seq) |