diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/lread.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/lread.c b/src/lread.c index acd2fea6881..32c83bfae8b 100644 --- a/src/lread.c +++ b/src/lread.c | |||
| @@ -1058,9 +1058,9 @@ This uses the variables `load-suffixes' and `load-file-rep-suffixes'. */) | |||
| 1058 | static Lisp_Object | 1058 | static Lisp_Object |
| 1059 | effective_load_path (void) | 1059 | effective_load_path (void) |
| 1060 | { | 1060 | { |
| 1061 | if (!NATIVE_COMP_FLAG) | 1061 | #ifndef HAVE_NATIVE_COMP |
| 1062 | return Vload_path; | 1062 | return Vload_path; |
| 1063 | 1063 | #else | |
| 1064 | Lisp_Object lp = Vload_path; | 1064 | Lisp_Object lp = Vload_path; |
| 1065 | Lisp_Object new_lp = Qnil; | 1065 | Lisp_Object new_lp = Qnil; |
| 1066 | FOR_EACH_TAIL (lp) | 1066 | FOR_EACH_TAIL (lp) |
| @@ -1073,6 +1073,7 @@ effective_load_path (void) | |||
| 1073 | new_lp = Fcons (el, new_lp); | 1073 | new_lp = Fcons (el, new_lp); |
| 1074 | } | 1074 | } |
| 1075 | return Fnreverse (new_lp); | 1075 | return Fnreverse (new_lp); |
| 1076 | #endif | ||
| 1076 | } | 1077 | } |
| 1077 | 1078 | ||
| 1078 | /* Return true if STRING ends with SUFFIX. */ | 1079 | /* Return true if STRING ends with SUFFIX. */ |