diff options
Diffstat (limited to 'cppawk-include/cons.h')
| -rw-r--r-- | cppawk-include/cons.h | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/cppawk-include/cons.h b/cppawk-include/cons.h index ca3bb39..aaea3bf 100644 --- a/cppawk-include/cons.h +++ b/cppawk-include/cons.h @@ -180,8 +180,8 @@ function nump(__obj) } #define nump(obj) ((obj) == 0 || (obj) + 0 != 0) -function tolisp(__raw, - __case_temps) +function box(__raw, + __case_temps) { __case (typecode(__raw)) { __of ("T", "S", "C") @@ -191,14 +191,14 @@ function tolisp(__raw, } } -function toawk(__obj, +function unbox(__obj, __case_temps) { __case (typecode(__obj)) { __of ("T", "S") __cret (substr(__obj, 2)) __of ("C") - __error("toawk: %s looks like a cons", __obj, i) + __error("unbox: %s looks like a cons", __obj, i) __cbreak __otherwise __cret (__obj) @@ -356,10 +356,10 @@ function __slow_equal(__obj1, __obj2, } if (__tc1 == "T") - return toawk(__obj1) == __obj2; + return unbox(__obj1) == __obj2; if (__tc2 == "T") - return __obj1 == toawk(__obj2); + return __obj1 == unbox(__obj2); if (nump(__obj1)) return __obj1 + 0 == __obj2 |