Branch: Tag:

2001-01-11

2001-01-11 23:32:29 by Martin Stjernholm <mast@lysator.liu.se>

Handle the statement label nodes in print_tree.

Rev: src/las.c:1.230

5:   \*/   /**/   #include "global.h" - RCSID("$Id: las.c,v 1.229 2000/12/05 21:08:19 per Exp $"); + RCSID("$Id: las.c,v 1.230 2001/01/11 23:32:29 mast Exp $");      #include "language.h"   #include "interpret.h"
2199:    fprintf(stderr, ")");    return;    +  case F_NORMAL_STMT_LABEL: +  case F_CUSTOM_STMT_LABEL: +  fprintf(stderr, "%s:", _CAR(foo)->u.sval.u.string->str); +  low_print_tree(_CDR(foo),0); +  return; +     default:    if(!car_is_node(foo) && !cdr_is_node(foo))    {