Indexing in variable subst applies to any sequence.

The @{a [3]} syntax in quasiliterals and @(output) now
indexes into the original object a if it is any sequence
kind, not specifically a list. Otherwise it indexes into
its string representation.

* eval.c (format_field): Combine the elements of the
object with the separator if it is any sequence type other
than a string.  Subject to compat option.
(subst_vars): Avoid converting any kind of sequence to
string, rather than just lists.  After any field formatting
is applied, if the object is any sequence (not just alist),
combine the elements with a space.  All subect to compat
option.

* match.c (tx_subst_vars): Same treatment as subst_vars.

* txr.1: Compatibility notes added.

1 files changed, 12 insertions, 5 deletions

diff --git a/match.c b/match.c
index b25502fe..b187e13b 100644
--- a/match.c
+++ b/match.c
@@ -1631,19 +1631,26 @@ static val tx_subst_vars(val spec, val bindings, val filter)
           val modifiers = third(elem);
           val str = txeval(spec, expr, bindings);
 
-          /* If the object is a list, we let format_field deal with the
+          /* If the object is a sequence, we let format_field deal with the
              conversion to text, because the modifiers influence how
              it is done. */
-          if (!stringp(str) && !listp(str))
-            str = tostringp(str);
+          str = if3(stringp(str),
+                    str,
+                    if3(if3(opt_compat && opt_compat <= 174,
+                            listp(str), seqp(str)),
+                        str,
+                        tostringp(str)));
 
           if (modifiers) {
             spec = cons(format_field(str, modifiers, filter,
                                      curry_123_2(func_n3(txeval), spec, bindings)),
                         rest(spec));
           } else {
-            if (listp(str))
-              str = cat_str(mapcar(func_n1(tostringp), str), lit(" "));
+            if (!stringp(str))
+              str = if3(if3(opt_compat && opt_compat <= 174,
+                            listp(str), seqp(str)),
+                        cat_str(mapcar(func_n1(tostringp), str), lit(" ")),
+                        str);
 
             spec = cons(filter_string_tree(filter, str), rest(spec));
           }