From 16254e5a09faeccd4681958d4500d69a975e0319 Mon Sep 17 00:00:00 2001 From: BT Templeton Date: Fri, 17 Jun 2011 00:15:07 -0400 Subject: [PATCH] `atomp' -> `atom' * module/language/elisp/runtime/subrs.scm (atomp) Rename to... (atom): ...this. All callers changed. --- module/language/elisp/runtime/subrs.scm | 2 +- test-suite/tests/elisp-compiler.test | 6 +++--- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/module/language/elisp/runtime/subrs.scm b/module/language/elisp/runtime/subrs.scm index b03a510a1..b372d82a1 100644 --- a/module/language/elisp/runtime/subrs.scm +++ b/module/language/elisp/runtime/subrs.scm @@ -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))))) diff --git a/test-suite/tests/elisp-compiler.test b/test-suite/tests/elisp-compiler.test index 230dc772d..869950389 100644 --- a/test-suite/tests/elisp-compiler.test +++ b/test-suite/tests/elisp-compiler.test @@ -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)