[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/native-comp cf37850 2/3: * src/comp.c (return_nil): Make it not
From: |
Andrea Corallo |
Subject: |
feature/native-comp cf37850 2/3: * src/comp.c (return_nil): Make it not a nested function. |
Date: |
Wed, 3 Mar 2021 14:36:36 -0500 (EST) |
branch: feature/native-comp
commit cf37850e2d69eda908495950acf8decb0ecec517
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>
* src/comp.c (return_nil): Make it not a nested function.
---
src/comp.c | 10 ++++++++--
1 file changed, 8 insertions(+), 2 deletions(-)
diff --git a/src/comp.c b/src/comp.c
index d74f832..bcffd42 100644
--- a/src/comp.c
+++ b/src/comp.c
@@ -4506,6 +4506,14 @@ helper_PSEUDOVECTOR_TYPEP_XUNTAG (Lisp_Object a, enum
pvec_type code)
static Lisp_Object all_loaded_comp_units_h;
+#ifdef WINDOWSNT
+static Lisp_Object
+return_nil (Lisp_Object arg)
+{
+ return Qnil;
+}
+#endif
+
/* Windows does not let us delete a .eln file that is currently loaded
by a process. The strategy is to rename .eln files into .old.eln
instead of removing them when this is not possible and clean-up
@@ -4517,8 +4525,6 @@ void
eln_load_path_final_clean_up (void)
{
#ifdef WINDOWSNT
- Lisp_Object return_nil (Lisp_Object arg) { return Qnil; }
-
Lisp_Object dir_tail = Vcomp_eln_load_path;
FOR_EACH_TAIL (dir_tail)
{