diff options
| author | Andrea Corallo <akrl@sdf.org> | 2020-04-13 16:57:27 +0100 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2020-04-13 18:10:03 +0100 |
| commit | 97873235523dd6fc236b3ebc7bf34a53fb5a528a (patch) | |
| tree | c17b29b71cc093793aa38401bf94e564222c0280 /src/lread.c | |
| parent | 05adf0353faf0bff3da60230a691b381de297843 (diff) | |
| download | emacs-97873235523dd6fc236b3ebc7bf34a53fb5a528a.tar.gz emacs-97873235523dd6fc236b3ebc7bf34a53fb5a528a.tar.bz2 emacs-97873235523dd6fc236b3ebc7bf34a53fb5a528a.zip | |
* src/lread.c (Fload): Clean-up unnecessary sanity check.
'is_native_elisp' can't be non zero if NATIVE_COMP_FLAG is not set.
Diffstat (limited to 'src/lread.c')
| -rw-r--r-- | src/lread.c | 22 |
1 files changed, 8 insertions, 14 deletions
diff --git a/src/lread.c b/src/lread.c index 9bd60b9b386..1e05ac69320 100644 --- a/src/lread.c +++ b/src/lread.c @@ -1506,22 +1506,16 @@ Return t if the file exists and loads successfully. */) } else if (is_native_elisp) { - if (NATIVE_COMP_FLAG) + specbind (Qcurrent_load_list, Qnil); + if (!NILP (Vpurify_flag)) { - specbind (Qcurrent_load_list, Qnil); - if (!NILP (Vpurify_flag)) - { - Lisp_Object base = parent_directory (Ffile_name_directory (found)); - Lisp_Object offset = Flength (base); - hist_file_name = Fsubstring (found, offset, Qnil); - } - LOADHIST_ATTACH (hist_file_name); - Fnative_elisp_load (found, Qnil); - build_load_history (hist_file_name, true); + Lisp_Object base = parent_directory (Ffile_name_directory (found)); + Lisp_Object offset = Flength (base); + hist_file_name = Fsubstring (found, offset, Qnil); } - else - /* This cannot happen. */ - emacs_abort (); + LOADHIST_ATTACH (hist_file_name); + Fnative_elisp_load (found, Qnil); + build_load_history (hist_file_name, true); } else { |