From 6522f634df9903e7e8bb40027a818529b664118f Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Mon, 4 Apr 2022 07:15:52 -0700 Subject: Rename nump to numberp. --- cppawk-include/cons-priv.h | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'cppawk-include/cons-priv.h') 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; -- cgit v1.2.3