diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2022-04-03 10:10:20 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2022-04-03 10:10:20 -0700 |
| commit | 20394dfa62464334b202dcce7e592025baf7ffbd (patch) | |
| tree | 1ca01d3a4a4145cd6fa7961d8082dc1227a2a65b /cppawk-include | |
| parent | a0e1a70d53dc1f1428829e34192afff86c1f34b8 (diff) | |
| download | cppawk-20394dfa62464334b202dcce7e592025baf7ffbd.tar.gz cppawk-20394dfa62464334b202dcce7e592025baf7ffbd.tar.bz2 cppawk-20394dfa62464334b202dcce7e592025baf7ffbd.zip | |
cons: rename tolisp and toawk functions.
The new terminology is box and unbox.
Diffstat (limited to 'cppawk-include')
| -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 |