From 6522f634df9903e7e8bb40027a818529b664118f Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 4 Apr 2022 07:15:52 -0700
Subject: Rename nump to numberp.

---
 cppawk-include/cons-priv.h | 10 +++++-----
 cppawk-include/cons.h      |  2 +-
 2 files changed, 6 insertions(+), 6 deletions(-)

(limited to 'cppawk-include')

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
-- 
cgit v1.2.3