From 62f956970f5fe4b180ca57b290594530386d8b02 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Mon, 6 Apr 2020 18:03:34 +0100 Subject: [PATCH] * 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 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, -- 2.39.5