Mercurial > hg > octave-nkf

diff src/pt-pr-code.cc @ 3351:8623649c967c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1999-11-15 16:17:01 by jwe]
author jwe
date Mon, 15 Nov 1999 16:17:06 +0000
parents e8a7163701be
children 32dd5d5e8c8f
line wrap: on
line diff
--- a/src/pt-pr-code.cc
+++ b/src/pt-pr-code.cc
@@ -506,6 +506,37 @@
 }
 
 void
+tree_print_code::visit_cell (tree_cell& lst)
+{
+  indent ();
+
+  print_parens (lst, "(");
+
+  os << "{";
+
+  Pix p = lst.first ();
+
+  while (p)
+    {
+      tree_argument_list *elt = lst (p);
+
+      lst.next (p);
+
+      if (elt)
+	{
+	  elt->accept (*this);
+
+	  if (p)
+	    os << "; ";
+	}
+    }
+
+  os << "}";
+
+  print_parens (lst, ")");
+}
+
+void
 tree_print_code::visit_multi_assignment (tree_multi_assignment& expr)
 {
   indent ();