From 0efe0c63ce285cc562933180a4a2b4ecb5a308b7 Mon Sep 17 00:00:00 2001
From: John Wiegley <johnw@newartisans.com>
Date: Fri, 27 Feb 2009 14:06:52 -0400
Subject: [PATCH] Corrected output of O_CALL nodes

---
 src/op.cc | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/src/op.cc b/src/op.cc
index a8994309..9b50c9f7 100644
--- a/src/op.cc
+++ b/src/op.cc
@@ -473,9 +473,11 @@ bool expr_t::op_t::print(std::ostream& out, const context_t& context) const
       out << "(";
       if (left() && left()->print(out, context))
 	found = true;
-      out << ", ";
-      if (has_right() && right()->print(out, context))
-	found = true;
+      for (ptr_op_t next = right(); next; next = next->right()) {
+	out << ", ";
+	if (next->print(out, context))
+	  found = true;
+      }
       out << ")";
     }
     else if (left() && left()->print(out, context)) {