diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2022-04-05 19:22:52 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2022-04-05 19:22:52 -0700 |
| commit | 1c77097f7ebb99142ac349d98b3e87cb8b96020a (patch) | |
| tree | 4ed1c1aace49e1e2e69063a4f3ec337b37888351 /cppawk-include | |
| parent | 4bd486a99fff29ad18eef64dee6c704319874048 (diff) | |
| download | cppawk-1c77097f7ebb99142ac349d98b3e87cb8b96020a.tar.gz cppawk-1c77097f7ebb99142ac349d98b3e87cb8b96020a.tar.bz2 cppawk-1c77097f7ebb99142ac349d98b3e87cb8b96020a.zip | |
Add box_str function.
Diffstat (limited to 'cppawk-include')
| -rw-r--r-- | cppawk-include/cons-priv.h | 5 | ||||
| -rw-r--r-- | cppawk-include/cons.h | 1 |
2 files changed, 6 insertions, 0 deletions
diff --git a/cppawk-include/cons-priv.h b/cppawk-include/cons-priv.h index 271d840..dae98c4 100644 --- a/cppawk-include/cons-priv.h +++ b/cppawk-include/cons-priv.h @@ -212,6 +212,11 @@ function __unbox(__obj, } } +function __box_str(__str) +{ + return "T" __str +} + function __box_sym(__name) { return __name == "nil" ? nil : "S" __name diff --git a/cppawk-include/cons.h b/cppawk-include/cons.h index 57e23c6..560784a 100644 --- a/cppawk-include/cons.h +++ b/cppawk-include/cons.h @@ -57,6 +57,7 @@ #define symbolp __symbolp #define box __box #define unbox __unbox +#define box_str __box_str #define box_sym __box_sym #define cons __cons #define car __car |