Re: WORDS reversed

Newsgroups	comp.lang.forth
Subject	Re: WORDS reversed
References	<51cf2832$0$6336$e4fe514c@dreader35.news.xs4all.nl>
From	Lars Brinkhoff <lars.spam@nocrew.org>
Organization	nocrew
Date	2013-07-03 09:36 +0200
Message-ID	<851u7gnlhr.fsf@junk.nocrew.org> (permalink)

Show all headers | View raw

albert@spenarnc.xs4all.nl (Albert van der Horst) writes:
> I have reversed the order in which WORDS lists since ages.
> Provided your stack is large enough (desktop systems),
> it is easily accomplished by [edited for brevity]
> : WORDS   0  CONTEXT @ BEGIN >LFA @ DUP DUP 0= UNTIL 2DROP
>     BEGIN DUP WHILE ID. REPEAT DROP ;

Is your return stack large too?

: (words)   ?dup if dup >lfa @ recurse id. then ;
: words   context @ (words) ;

Back to comp.lang.forth | Previous | Next — Previous in thread | Next in thread | Find similar

Thread

WORDS reversed albert@spenarnc.xs4all.nl (Albert van der Horst) - 2013-06-29 18:32 +0000
  Re: WORDS reversed Lars Brinkhoff <lars.spam@nocrew.org> - 2013-07-03 09:36 +0200
    Re: WORDS reversed albert@spenarnc.xs4all.nl (Albert van der Horst) - 2013-07-04 14:55 +0000

csiph-web