- S" newline" str-equiv? if '\n' character-type exit then
- S" space" str-equiv? if bl character-type exit then
- S" tab" str-equiv? if 9 character-type exit then
+ S" newline" str-equiv? if 7 parse-idx +! '\n' character-type exit then
+ S" space" str-equiv? if 5 parse-idx +! bl character-type exit then
+ S" tab" str-equiv? if 3 parse-idx +! 9 character-type exit then