From: Andrea Corallo <akrl@sdf.org>
Date: Mon, 6 Apr 2020 17:03:34 +0000 (+0100)
Subject: * src/comp.c (native-comp-unit-file): Better parameter name.
X-Git-Tag: emacs-28.0.90~2727^2~717
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=62f956970f5fe4b180ca57b290594530386d8b02;p=emacs.git

* src/comp.c (native-comp-unit-file): Better parameter name.
---

diff --git a/src/data.c b/src/data.c
index b53b8409b59..2040e4eaecd 100644
--- a/src/data.c
+++ b/src/data.c
@@ -883,11 +883,12 @@ DEFUN ("subr-native-comp-unit", Fsubr_native_comp_unit,
 DEFUN ("native-comp-unit-file", Fnative_comp_unit_file,
        Snative_comp_unit_file, 1, 1, 0,
        doc: /* Return the file of the native compilation unit.  */)
-  (Lisp_Object object)
+  (Lisp_Object comp_unit)
 {
-  CHECK_TYPE (NATIVE_COMP_UNITP (object), Qnative_comp_unit, object);
-  return XNATIVE_COMP_UNIT (object)->file;
+  CHECK_TYPE (NATIVE_COMP_UNITP (comp_unit), Qnative_comp_unit, comp_unit);
+  XNATIVE_COMP_UNIT (comp_unit)->file = new_file;
 }
+
 #endif
 
 DEFUN ("interactive-form", Finteractive_form, Sinteractive_form, 1, 1, 0,