From: Eric S. Raymond <esr@thyrsus.com>
Date: Fri, 11 Nov 1994 11:27:04 +0000 (+0000)
Subject: Better jump label display.
X-Git-Tag: 1-2~46
X-Git-Url: http://thyrsus.com/gitweb/?a=commitdiff_plain;h=0f548538dcbfaeb063f468e394751a5c3d882295;p=cupl.git

Better jump label display.
---

diff --git a/interpret.c b/interpret.c
index 784af46..3cecda6 100644
--- a/interpret.c
+++ b/interpret.c
@@ -43,8 +43,13 @@ static void prettyprint(node *tree, int indent)
     else if (tree->type == STRING)
 	(void) printf("STRING: '%s'\n", tree->u.string);
     else if (tree->type == STATEMENT && indent > 0)
-	(void) printf("-> %s (STATEMENT %d)\n", 
-		      tree->car->car->u.string, tree->number);
+    {
+	if (tree->car->type == LABEL)
+	    (void) printf("-> %s (STATEMENT %d)\n", 
+			  tree->car->car->u.string, tree->number);
+	else
+	    (void) printf("-> STATEMENT %d\n", tree->number);
+    }
     else
     {
 	if (tree->type == STATEMENT)