From: Eric S. Raymond <esr@thyrsus.com>
Date: Thu, 3 Nov 1994 22:26:21 +0000 (+0000)
Subject: Better goto reporting.
X-Git-Tag: 1-2~84
X-Git-Url: http://thyrsus.com/gitweb/?a=commitdiff_plain;h=112f297d4681d84eaa48cf68dd720c5751213e3f;p=cupl.git

Better goto reporting.
---

diff --git a/interpret.c b/interpret.c
index dc706e9..48c80cc 100644
--- a/interpret.c
+++ b/interpret.c
@@ -68,7 +68,8 @@ 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("-> STATEMENT %d\n", tree->number);
+	(void) printf("-> %s (STATEMENT %d)\n", 
+		      tree->car->car->u.string, tree->number);
     else
     {
 	if (tree->type == STATEMENT)