From 0d0703e9c4fb5ebcd4a87e5ebe78e5f53496621e Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Mon, 14 Mar 2022 08:55:46 -0700 Subject: Prefer CALLN * src/bytecode.c (Fbyte_code): * src/composite.c (Fclear_composition_cache): Prefer CALLN to doing it by hand. * src/fns.c (ccall2): Remove. All uses replaced by CALLN. --- src/bytecode.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/bytecode.c') diff --git a/src/bytecode.c b/src/bytecode.c index 8704e6069dd..65c3ad4da70 100644 --- a/src/bytecode.c +++ b/src/bytecode.c @@ -325,8 +325,8 @@ If the third argument is incorrect, Emacs may crash. */) the original unibyte form. */ bytestr = Fstring_as_unibyte (bytestr); } - Lisp_Object args[] = {0, bytestr, vector, maxdepth}; - return exec_byte_code (Fmake_byte_code (4, args), 0, 0, NULL); + Lisp_Object fun = CALLN (Fmake_byte_code, 0, bytestr, vector, maxdepth); + return exec_byte_code (fun, 0, 0, NULL); } static void -- cgit v1.2.3