:> CHAR: lit lit , ' char: execute , ;
\ JSON Compiler
-: JSON-CTRL-CHAR char: { =? if ;; then
- char: } =? if ;; then
- char: [ =? if ;; then ;
+: JSON-CTRL-CHAR? char: { =? if 1 ;; then
+ char: } =? if 1 ;; then
+ char: [ =? if 1 ;; then
+ char: ] =? if 1 ;; then
+ 0 ;
: JSON-PARSE-V ;
: JSON-PARSE-" ;
: JSON-PARSE-[ ;
: JSON-PARSE-{ ;
-:> JSON-WORD wordstart key -1 =? if ;; then ws? ;
+: JSON-WORD word-start key JSON-CTRL-CHAR? if word-end ;; then ws? ;
+: JSON{ key ;
\ Include a remote file
: REQUIRE" ' quit channel-open dup \' " \, fetch channel-await ;