Re: [Amforth-devel] [bug] stack underflow not caught

[Kalus M. <mic...@on...>]

Hi Erich.


Am 01.04.2009 um 20:46 schrieb Erich Waelde:
..
>> : .s ( -- )
>>  depth 0> if
>>  depth sp@ swap 0
>>  do i . 1+ 1+ dup . dup @ >< . cr loop 1+ 1+
>>  else sp@ then 53 ( S ) emit space . ;
>
> This works for me better when removing "><" and
> substituting "u." for "."

Sorry, I picked the wrong version for the posting: In older amforth  
versions  ><  changed byte order in top of stack to get a readable  
address or item. And there was no u. in those days. Double cell stack  
order changed with amforth Version 2.7 and there is a u. nowadays  
too. So you have to replace  >< .  by   u.   I guess.

Michael