: '> word find-does ;
:> '> word find-does , ;
+\ CHAR
+: CHAR: word drop @8_u ;
+:> CHAR: lit lit , ' char: execute , ;
+
+\ JSON Compiler
+: 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 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 ;