diff options
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 |