diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2022-04-04 07:15:52 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2022-04-04 07:15:52 -0700 |
| commit | 6522f634df9903e7e8bb40027a818529b664118f (patch) | |
| tree | 54313255a838282278c4eb6471a1ec6b2baa16c1 /cppawk-include | |
| parent | 8335e67e819088cda3b9f05a39b810e1575a66b4 (diff) | |
| download | cppawk-6522f634df9903e7e8bb40027a818529b664118f.tar.gz cppawk-6522f634df9903e7e8bb40027a818529b664118f.tar.bz2 cppawk-6522f634df9903e7e8bb40027a818529b664118f.zip | |
Rename nump to numberp.
Diffstat (limited to 'cppawk-include')
| -rw-r--r-- | cppawk-include/cons-priv.h | 10 | ||||
| -rw-r--r-- | cppawk-include/cons.h | 2 |
2 files changed, 6 insertions, 6 deletions
diff --git a/cppawk-include/cons-priv.h b/cppawk-include/cons-priv.h index 3bc0e19..98c1f35 100644 --- a/cppawk-include/cons-priv.h +++ b/cppawk-include/cons-priv.h @@ -153,11 +153,11 @@ function __bs_esc(raw) return raw } -function __nump(__obj) +function __numberp(__obj) { - return __obj == 0 || __obj + 0 != 0 + return __obj != "" && (__obj == 0 || __obj + 0 != 0) } -#define __nump(obj) ((obj) == 0 || (obj) + 0 != 0) +#define __numberp(obj) (obj != "" && ((obj) == 0 || (obj) + 0 != 0)) function __box(__raw, __case_temps) @@ -252,7 +252,7 @@ function __sexp(__obj, __cret (__bs_esc(substr(__obj, 2))) } - if (__nump(__obj)) { + if (__numberp(__obj)) { return __obj } else if (__null(__obj)) { return "nil" @@ -340,7 +340,7 @@ function __slow_equal(__obj1, __obj2, if (__tc2 == "T") return __obj1 == __unbox(__obj2); - if (__nump(__obj1)) + if (__numberp(__obj1)) return __obj1 + 0 == __obj2 return 0; diff --git a/cppawk-include/cons.h b/cppawk-include/cons.h index d13a115..696856d 100644 --- a/cppawk-include/cons.h +++ b/cppawk-include/cons.h @@ -52,7 +52,7 @@ #define endp __endp #define false __false #define true __true -#define nump __nump +#define numberp __numberp #define box __box #define unbox __unbox #define sym __sym |