[gforth] `name-too-long?` in `input-stream-header`

[Marcos Cruz]

I just realized (Gforth 0.7.3) that `name-too-long?` is called in
`input-stream-header`, while it's also the first word called in
`header,`:

  : input-stream-header ( "name" -- )
      parse-name name-too-short? header, ;

They are defined in <kernel/comp.fs>.

Is it an oversight?

-- 
Marcos Cruz
http://programandala.net