* General Public License for more details.
*/
-#define DBG_EVAL 0
#include "ao_lisp.h"
const struct ao_lisp_type ao_lisp_stack_type;
{
struct ao_lisp_stack *s = ao_lisp_poly_stack(poly);
- if (s->type & AO_LISP_STACK_PRINT) {
- printf("[recurse...]");
- return;
- }
while (s) {
+ if (s->type & AO_LISP_STACK_PRINT) {
+ printf("[recurse...]");
+ return;
+ }
s->type |= AO_LISP_STACK_PRINT;
printf("\t[\n");
printf("\t\texpr: "); ao_lisp_poly_print(s->list); printf("\n");