Better goto reporting.

diff --git a/interpret.c b/interpret.c
index dc706e92e1771960f3b8f83fcdf07e2cf472f08c..48c80cc38c12e8c1639dda4aa60f2648c196d507 100644 (file)
--- 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)