mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 05:50:26 +02:00
Code Activity

atomp' -> atom'

Browse source 
* module/language/elisp/runtime/subrs.scm (atomp) Rename to...
  (atom): ...this. All callers changed.
This commit is contained in:
BT Templeton 2011-06-17 00:15:07 -04:00
parent 30439aa8bb
commit 16254e5a09
2 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/language/elisp/runtime/subrs.scm
View file

@ -144,7 +144,7 @@
(lambda (el)
(elisp-bool (pair? el))))
(built-in-func atomp
(built-in-func atom
(lambda (el)
(elisp-bool (prim not (pair? el)))))

6
test-suite/tests/elisp-compiler.test
View file

@ -607,11 +607,11 @@
(with-test-prefix/compile "List Built-Ins"
(pass-if "consp and atomp"
(pass-if "consp and atom"
(and (consp '(1 2 3)) (consp '(1 2 . 3)) (consp '(a . b))
(not (consp '())) (not (consp 1)) (not (consp "abc"))
(atomp 'a) (atomp '()) (atomp -1.5) (atomp "abc")
(not (atomp '(1 . 2))) (not (atomp '(1)))))
(atom 'a) (atom '()) (atom -1.5) (atom "abc")
(not (atom '(1 . 2))) (not (atom '(1)))))
(pass-if "listp and nlistp"
(and (listp '(1 2 3)) (listp '(1)) (listp '()) (listp '(1 . 2))
(not (listp 'a)) (not (listp 42)) (nlistp 42)