feature/native-comp 62f9569 1/7: * src/comp.c (native-comp-unit-file): Better parameter name.

[Andrea Corallo]

branch: feature/native-comp
commit 62f956970f5fe4b180ca57b290594530386d8b02
Author: Andrea Corallo <address@hidden>
Commit: Andrea Corallo <address@hidden>

    * src/comp.c (native-comp-unit-file): Better parameter name.
---
 src/data.c | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/src/data.c b/src/data.c
index b53b840..2040e4e 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,