[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:58:23 -0400 |
|
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/25.2 (cygwin) |
address@hidden (J. David Boyd) writes:
> 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
Never mind. Stupid pilot error. I was typing 'nwords' without putting a
value on the stack....