list-value is [value] for lists, and list-value-extend is a handy shortcut for shared stacks

svn path=/trunk/abstractions/senderfruit/; revision=10302

1 files changed, 21 insertions, 0 deletions

diff --git a/core/list-value-extend.pd b/core/list-value-extend.pd
new file mode 100644
index 0000000..4c3eeb0
--- /dev/null
+++ b/core/list-value-extend.pd
@@ -0,0 +1,21 @@
+#N canvas 355 364 450 300 10;
+#X declare -lib list-abs;
+#X obj 153 85 t a b;
+#X obj 281 42 import list-abs;
+#X obj 153 165 list-extend;
+#X obj 60 36 inlet;
+#X obj 60 195 list-value \$1;
+#X obj 60 218 outlet;
+#X obj 180 135 list-value \$1;
+#X obj 60 59 route bang clear;
+#X msg 106 104 clear;
+#X connect 0 0 2 0;
+#X connect 0 1 6 0;
+#X connect 2 0 6 0;
+#X connect 3 0 7 0;
+#X connect 4 0 5 0;
+#X connect 6 0 2 1;
+#X connect 7 0 4 0;
+#X connect 7 1 8 0;
+#X connect 7 2 0 0;
+#X connect 8 0 4 0;