From 1c77097f7ebb99142ac349d98b3e87cb8b96020a Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Tue, 5 Apr 2022 19:22:52 -0700
Subject: Add box_str function.

---
 testcases-cons | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'testcases-cons')

diff --git a/testcases-cons b/testcases-cons
index b4352ae..99c150b 100644
--- a/testcases-cons
+++ b/testcases-cons
@@ -216,10 +216,14 @@ $cppawk '
 BEGIN {
   print box_sym(undef), box_sym(1), box_sym("1a"), box_sym(0), box_sym(-1.34)
   print "A" box_sym("nil") "B", box_sym("abc"), box_sym("()")
+  print box_str(undef), box_str(1), box_str("1a"), box_str(0), box_str(-1.34)
+  print "A" box_str("nil") "B", box_str("abc"), box_str("()")
 }'
 :
 S S1 S1a S0 S-1.34
 AB Sabc S()
+T T1 T1a T0 T-1.34
+ATnilB Tabc T()
 --
 16:
 $cppawk '
-- 
cgit v1.2.3