From ab3f36fac2da2979713109561f086d95bb26d580 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Sun, 17 Nov 2019 12:46:21 +0100 Subject: [PATCH] style nit into load_comp_unit --- src/comp.c | 22 ++++++++++------------ 1 file changed, 10 insertions(+), 12 deletions(-) diff --git a/src/comp.c b/src/comp.c index 2638290859f..e5d703f769f 100644 --- a/src/comp.c +++ b/src/comp.c @@ -3217,20 +3217,18 @@ load_comp_unit (dynlib_handle_ptr handle, char *file_name) Lisp_Object subr = Fsymbol_function (f_sym); if (!NILP (subr)) { - if (!SUBRP (subr)) - { + if (!SUBRP (subr) /* If is not a subr try to recover the original one assuming was advised. */ - if (!(!NILP (CALL1I (ad-has-any-advice, f_sym)) - && SUBRP (subr = CALL1I (ad-get-orig-definition, f_sym)))) - { - /* FIXME: This is not robust in case of primitive - redefinition. */ - err_msg = format_string ("primitive %s redefined " - "or wrong relocation?", - f_str); - goto exit_error; - } + && !(!NILP (CALL1I (ad-has-any-advice, f_sym)) + && SUBRP (subr = CALL1I (ad-get-orig-definition, f_sym)))) + { + /* FIXME: This is not robust in case of primitive + redefinition. */ + err_msg = format_string ("primitive %s redefined " + "or wrong relocation?", + f_str); + goto exit_error; } f_relocs[i] = XSUBR (subr)->function.a0; } -- 2.39.5