[gforth] A little do-nothing in recognizer.fs: get-stack
In line 79 of recognizer.fs , at the start of "get-stack", the sequence: dup swap -- seems unintentional unless it's a place- or time- holder. Since the code works, "2dup swap" makes no sense. This is the only example in all of Gforth presently.
Re: [gforth] A little do-nothing in recognizer.fs: get-stack
Now perplexed. "see get-stack" gives: : get-stack noop swap @ noop >r cells bounds swap ?do i @ noop -loop r> ; . recognizer.fs source gives: : get-stack ( rec-addr -- xt1 .. xtn n ) dup swap @ dup >r cells bounds swap ?DO I @ cell -