[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [gforth] words backwards (J. David Boyd)
From: |
J. David Boyd |
Subject: |
Re: [gforth] words backwards (J. David Boyd) |
Date: |
Thu, 01 Jun 2017 16:39:07 -0400 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/25.2 (cygwin) |
Bernd Paysan <address@hidden> writes:
> Am Freitag, 19. Mai 2017, 22:01:16 CEST schrieb James Gere:
>> The above, rather inefficient code, works on android gforth.
>
> Less clumsy, fully efficient by using TRAVERSE-WORDLISTs end flag:
>
> : nwords ( n --- )
> cr 0 [: .word >r 1- r> over 0> ;] context @ traverse-wordlist 2drop ;
>
> This stuff works on all recent Gforths, not just the Anroid one.
when I try that implementation of nwords, I get
error: Stack underflow
- Re: [gforth] words backwards (J. David Boyd),
J. David Boyd <=