cons: bags macro: document, test.

1 files changed, 24 insertions, 0 deletions

diff --git a/testcases-cons b/testcases-cons
index 76be7c8..e945478 100644
--- a/testcases-cons
+++ b/testcases-cons
@@ -849,3 +849,27 @@ nil
 3
 ("a" 1 2)
 ("a" 1 2 . 3)
+--
+44:
+$cppawk '
+#include <cons.h>
+
+BEGIN {
+  bags (vals, squares, sums) {
+    acc = 0
+    for (i = 0; i < 5; i++) {
+      bag (vals, i)
+      bag (squares, i*i)
+      bag (sums, acc += i)
+    }
+  }
+
+  // the bags variables are now
+  print sexp(vals)
+  print sexp(squares)
+  print sexp(sums)
+}'
+:
+(0 1 2 3 4)
+(0 1 4 9 16)
+(0 1 3 6 10)