-: initial? ( -- bool )
- nextchar [char] A >= nextchar [char] Z <= and if true exit then
- nextchar [char] a >= nextchar [char] z <= and if true exit then
- nextchar [char] * = if true exit then
- nextchar [char] / = if true exit then
- nextchar [char] > = if true exit then
- nextchar [char] < = if true exit then
- nextchar [char] = = if true exit then
- nextchar [char] ? = if true exit then
- nextchar [char] ! = if true exit then
- false
-;
-
-: symbol? ( -- bool )
- initial? if true exit then
- nextchar [char] + =
- nextchar [char] - = or if
- inc-parse-idx
- delim? if dec-parse-idx true exit then
- dec-parse-idx
- then
- false
-;
-