]> git.eshelyaron.com Git - emacs.git/commitdiff
renaming comp-decrypt-lambda-list -> comp-decrypt-arg-list
authorAndrea Corallo <akrl@sdf.org>
Sat, 7 Dec 2019 16:31:54 +0000 (17:31 +0100)
committerAndrea Corallo <akrl@sdf.org>
Wed, 1 Jan 2020 10:38:11 +0000 (11:38 +0100)
lisp/emacs-lisp/comp.el

index 273bda8220f9c704b416a5cd7374cdd79de954b9..30db2f189187c9a50bf021257a64da8ed5912677 100644 (file)
@@ -391,8 +391,8 @@ Put PREFIX in front of it."
                           (rx (not (any "0-9a-z_"))) "" human-readable)))
     (concat prefix crypted "_" human-readable)))
 
-(defun comp-decrypt-lambda-list (x)
-  "Decript lambda list X."
+(defun comp-decrypt-arg-list (x)
+  "Decript argument list X."
   (unless (fixnump x)
     (signal 'native-compiler-error
             "can't native compile a non lexical scoped function"))
@@ -427,9 +427,9 @@ Put PREFIX in front of it."
       (let ((lap (alist-get nil byte-to-native-lap)))
         (cl-assert lap)
         (comp-log lap 2)
-        (let ((lambda-list (aref (comp-func-byte-func func) 0)))
+        (let ((arg-list (aref (comp-func-byte-func func) 0)))
           (setf (comp-func-args func)
-                (comp-decrypt-lambda-list lambda-list)
+                (comp-decrypt-arg-list arg-list)
                 (comp-func-lap func)
                 lap
                 (comp-func-frame-size func)