: '> word find-does ;
:> '> word find-does , ;
-\ CHAR
-: CHAR: word drop @8_u ;
-:> CHAR: lit lit , ' char: execute , ;
-
-\ JSON Compiler
-: JSON-CTRL-CHAR char: { =? if ;; then
- char: } =? if ;; then
- char: [ =? if ;; then ;
-: JSON-PARSE-V ;
-: JSON-PARSE-" ;
-: JSON-PARSE-[ ;
-: JSON-PARSE-{ ;
-:> JSON-WORD wordstart key -1 =? if ;; then ws? ;
-
-
\ Include a remote file
: REQUIRE" ' quit channel-open dup \' " \, fetch channel-await ;