mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-19 18:20:22 +02:00
Code Activity

change remaining %nil -> #nil

Browse source 
* doc/ref/vm.texi:
* libguile/boolean.h:
* libguile/pairs.h:
* module/language/elisp/README:
* test-suite/tests/elisp-compiler.test:
* test-suite/tests/load.test: Change remaining mentions of %nil to #nil.
This commit is contained in:
Andy Wingo 2010-04-09 14:44:28 +02:00
parent 474060a23c
commit 92a61010bd
6 changed files with 21 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/boolean.h
View file

@ -35,13 +35,13 @@
/*
* Use these macros if it's important (for correctness)
* that %nil MUST be considered true
* that #nil MUST be considered true
*/
#define scm_is_false_and_not_nil(x) (scm_is_eq ((x), SCM_BOOL_F))
#define scm_is_true_or_nil(x) (!scm_is_eq ((x), SCM_BOOL_F))
/*
* Use these macros if %nil will never be tested,
* Use these macros if #nil will never be tested,
* for increased efficiency.
*/
#define scm_is_false_assume_not_nil(x) (scm_is_eq ((x), SCM_BOOL_F))
@ -56,7 +56,8 @@
(SCM_MATCHES_BITS_IN_COMMON ((x), SCM_ELISP_NIL, SCM_BOOL_F))
#define scm_is_true_and_not_nil(x) (!scm_is_false_or_nil (x))
/* %nil is false. */
/*
#nil is false. */
#define scm_is_false(x) (scm_is_false_or_nil (x))
#define scm_is_true(x) (!scm_is_false (x))

7
libguile/pairs.h
View file

@ -36,12 +36,13 @@
/*
* Use scm_is_null_and_not_nil if it's important (for correctness)
* that %nil must NOT be considered null.
* that #nil must NOT be considered null.
*/
#define scm_is_null_and_not_nil(x) (scm_is_eq ((x), SCM_EOL))
/*
* Use scm_is_null_assume_not_nil if %nil will never be tested,
* Use scm_is_null_assume_not_nil if
#nil will never be tested,
* for increased efficiency.
*/
#define scm_is_null_assume_not_nil(x) (scm_is_eq ((x), SCM_EOL))
@ -60,7 +61,7 @@
#define SCM_NULL_OR_NIL_P(x) (scm_is_null_or_nil (x))
/* %nil is null. */
/* #nil is null. */
#define scm_is_null(x) (scm_is_null_or_nil(x))
#define SCM_CAR(x) (SCM_VALIDATE_PAIR (x, SCM_CELL_OBJECT_0 (x)))