HCoop
/
bpt
/
guile.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
6570cfd
)
use defsubst
author
Robin Templeton
<robin@terpri.org>
Tue, 5 Aug 2014 03:13:03 +0000
(23:13 -0400)
committer
Robin Templeton
<robin@terpri.org>
Thu, 14 Aug 2014 05:14:08 +0000
(
01:14
-0400)
module/language/elisp/boot.el
patch
|
blob
|
blame
|
history
diff --git
a/module/language/elisp/boot.el
b/module/language/elisp/boot.el
index
fae86a2
..
0d16905
100644
(file)
--- 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
(%funcall (@ (language elisp runtime) eval-elisp) form)))
(eval-and-compile
- (defun null (object)
+ (defsubst null (object)
+ (declare (lexical object))
(if object nil t))
(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)
(defun listp (object)
+ (declare (lexical object))
(if object (consp object) t))
(if object (consp object) t))
- (defun car (list)
+ (defsubst car (list)
+ (declare (lexical list))
(if list (%funcall (@ (guile) car) list) nil))
(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))
(if list (%funcall (@ (guile) cdr) list) nil))
(defun make-symbol (name)
(%funcall (@ (guile) make-symbol) name))