diff options
author | Robin Templeton <robin@terpri.org> | 2014-08-04 23:13:03 -0400 |
---|---|---|
committer | Christopher Allan Webber <cwebber@dustycloud.org> | 2016-03-25 12:00:12 -0700 |
commit | 9f316dd7533d2532aabbce8ee2a2c9c326e7fb91 (patch) | |
tree | 7944990e6066a645d3b6bdd681884dfce8c4b13c | |
parent | 69b80315b53d237c048afaa9692fa96f1c0a3536 (diff) | |
download | guile-9f316dd7533d2532aabbce8ee2a2c9c326e7fb91.tar.gz |
use defsubst
(Best-ability ChangeLog annotation added by Christopher Allan Webber.)
* module/language/elisp/boot.el (null, consp, listp, car, cdr): Update
to use defsubst.
(atom): New variable, using defsubst.
-rw-r--r-- | module/language/elisp/boot.el | 18 |
1 files changed, 13 insertions, 5 deletions
diff --git a/module/language/elisp/boot.el b/module/language/elisp/boot.el index fae86a2bd..0d1690527 100644 --- a/module/language/elisp/boot.el +++ b/module/language/elisp/boot.el @@ -71,15 +71,23 @@ (%funcall (@ (language elisp runtime) eval-elisp) form))) (eval-and-compile - (defun null (object) + (defsubst null (object) + (declare (lexical object)) (if object nil t)) - (defun consp (object) - (%funcall (@ (guile) pair?) object)) + (defsubst consp (x) + (declare (lexical x)) + (%funcall (@ (guile) pair?) x)) + (defsubst atom (x) + (declare (lexical x)) + (null (consp x))) (defun listp (object) + (declare (lexical object)) (if object (consp object) t)) - (defun car (list) + (defsubst car (list) + (declare (lexical list)) (if list (%funcall (@ (guile) car) list) nil)) - (defun cdr (list) + (defsubst cdr (list) + (declare (lexical list)) (if list (%funcall (@ (guile) cdr) list) nil)) (defun make-symbol (name) (%funcall (@ (guile) make-symbol) name)) |