always print stack length

This commit is contained in:
tocariimaa 2025-02-04 15:07:07 -03:00
parent 31eba14753
commit 399ef3ab48

17
pila.c
View file

@ -303,17 +303,18 @@ print_value(RpnState *st, Value val, bool reader_fmt)
void
stack_contents_nat(RpnState *st)
{
printf("<%lu> ", st->sp);
if (st->sp == 0) {
puts("<empty stack>");
} else {
printf("<%lu> ", st->sp);
for (isize i = 0; i < st->sp; ++i) {
Value val = st->data_stack[i];
print_value(st, val, true);
putchar(' ');
}
putchar('\n');
return;
}
for (isize i = 0; i < st->sp; ++i) {
Value val = st->data_stack[i];
print_value(st, val, true);
putchar(' ');
}
putchar('\n');
}
void