Re: [gforth] ORDER bug

[Josh Grams]

>Hm, looking at head?, it really looks wrong.  Try replacing it with this:
>
>: head? ( addr -- f )
>\G heuristic check whether addr is a name token; may deliver false
>\G positives; addr must be a valid address
>    dup dup aligned <>
>    if
>       drop false exit \ heads are aligned
>    then
>    name>string dup $1F > if
>       2drop false exit \ realistically the name is short
>    then
>    + cfaligned @ here forthstart within ; \ and the cfa is outside

That does look more straightforward.  But it doesn't eliminate the
problem I was having.   I guess I never gave a good minimal test case.
This should reproduce it for reliably:

        here 32 cells erase  wordlist .voc

Hmm...a zero-length name should always be an invalid header, so I assume
replacing `$1F >` with `$20 1 WITHIN` should be OK?

--Josh