+: character? ( -- bool )
+ nextchar [char] # <> if false exit then
+
+ store-parse-idx
+ inc-parse-idx
+
+ nextchar [char] \ <> if restore-parse-idx false exit then
+
+ inc-parse-idx
+
+ charavailable? false = if restore-parse-idx false exit then
+
+ restore-parse-idx true
+;
+