text: /*
      module  : do_stack.c
      version : 1.2
      date    : 10/26/20
  */
  #include <stdio.h>
  #include "data.h"
  #include "ident.h"
  
  /*
  stack  :  .. X Y Z  ->  .. X Y Z [Z Y X ..]
  Pushes the stack as a list.
  */
  void do_stack()
  {
      data_t *cur;
  
      DEBUG(__FUNCTION__);
      cur = get(1);
      cur->op = typ_list;
      cur->list = stack;
      cur->next = stack;
      stack = cur;
  }
  