From c07a6ec8fdce3f3d66ac60981692e75552ad463d Mon Sep 17 00:00:00 2001
From: Cary R <cygcary@yahoo.com>
Date: Sun, 20 Jun 2021 22:38:55 -0700
Subject: [PATCH] Correctly dump case items

---
 pform_dump.cc | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/pform_dump.cc b/pform_dump.cc
index f103966d0..eb7fff7b4 100644
--- a/pform_dump.cc
+++ b/pform_dump.cc
@@ -935,15 +935,19 @@ void PCase::dump(ostream&out, unsigned ind) const
       for (unsigned idx = 0 ;  idx < items_->count() ;  idx += 1) {
 	    PCase::Item*cur = (*items_)[idx];
 
-	    if (! cur->expr.empty()) {
+	    if (cur->expr.empty()) {
 		  out << setw(ind+2) << "" << "default:";
 
 	    } else {
 		  list<PExpr*>::iterator idx_exp = cur->expr.begin();
-		  out << setw(ind+2) << "" << *idx_exp;
+		  out << setw(ind+2) << "";
+		  (*idx_exp)->dump(out);
+
+		  for (++idx_exp ; idx_exp != cur->expr.end() ; ++idx_exp) {
+			out << ", ";
+			(*idx_exp)->dump(out);
+		  }
 
-		  for( ; idx_exp != cur->expr.end() ; ++idx_exp)
-			out << ", " << *idx_exp;
 
 		  out << ":";
 	    }