+static struct fml_node *fml_exec_list (Fml fml, struct fml_node **lp,
+ struct token *tp)
+{
+ struct fml_node *fn = NULL;
+
+ fml_cmd_lex (lp, tp);
+ if (tp->kind == 'g')
+ fn = fml_node_copy (fml, tp->sub);
+ else
+ {
+ fn = fml_node_alloc (fml);
+ fn->is_atom = 1;
+ fn->p[0] = fml_atom_alloc (fml, tp->tokenbuf);
+ }
+ fml_cmd_lex (lp, tp);
+ return fn;
+}
+