+
+ swap dup rot + swap
+ do
+ i @ nextchar <> if
+ drop false
+ leave
+ then
+
+ inc-parse-idx
+ loop
+
+ delim? <> if drop false then
+
+ pop-parse-idx
+;
+
+: character? ( -- bool )
+ nextchar [char] # <> if false exit then
+
+ push-parse-idx
+ inc-parse-idx
+
+ nextchar [char] \ <> if pop-parse-idx false exit then
+
+ inc-parse-idx
+
+ S" newline" str-equiv? if true exit then
+ S" space" str-equiv? if true exit then
+ S" tab" str-equiv? if true exit then
+
+ charavailable? false = if pop-parse-idx false exit then
+
+ pop-parse-idx true