+ _print_word_list (list, separator, xprintf);
+}
+
+/* A function to print the words of a simple command when set -x is on. */
+void
+xtrace_print_word_list (list)
+ WORD_LIST *list;
+{
+ WORD_LIST *w;
+ char *t;
+
+ fprintf (stderr, "%s", indirection_level_string ());
+ for (w = list; w; w = w->next)
+ {
+ t = w->word->word;
+ if (t == 0 || *t == '\0')
+ fprintf (stderr, "''%s", w->next ? " " : "");
+ else if (contains_shell_metas (t))
+ fprintf (stderr, "'%s'%s", t, w->next ? " " : "");
+ else
+ fprintf (stderr, "%s%s", t, w->next ? " " : "");
+ }
+ fprintf (stderr, "\n");