/[cvs]/stack/stack.c
ViewVC logotype

Diff of /stack/stack.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.37 by teddy, Wed Feb 6 01:51:08 2002 UTC revision 1.38 by teddy, Wed Feb 6 11:15:05 2002 UTC
# Line 307  void print_h(stackitem *stack_head) Line 307  void print_h(stackitem *stack_head)
307      printf("#<function %p>", (funcp)(stack_head->item->content.ptr));      printf("#<function %p>", (funcp)(stack_head->item->content.ptr));
308      break;      break;
309    case list:    case list:
310      printf("#<list %p>", (funcp)(stack_head->item->content.ptr));      /* A list is just a stack, so make stack_head point to it */
311        stack_head=(stackitem *)(stack_head->item->content.ptr);
312        printf("[ ");
313        while(stack_head != NULL) {
314          print_h(stack_head);
315          printf(" ");
316          stack_head=stack_head->next;
317        }
318        printf("] ");
319      break;      break;
320    default:    default:
321      printf("#<unknown %p>", (funcp)(stack_head->item->content.ptr));      printf("#<unknown %p>", (stack_head->item->content.ptr));
322      break;      break;
323    }    }
324  }  }
Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38
root@recompile.se
 ViewVC Help
Powered by ViewVC 1.1.26