X-Git-Url: https://git.kengrimes.com/?p=watForth.git;a=blobdiff_plain;f=forth.forth;fp=forth.forth;h=5c9834f320e840e6a83dce9b578cc82317b44981;hp=47224b9fd5be28b7a1e02989d034630e9d638f65;hb=ad3b02f34ef51d8df8db0472f8bebf412251ea2b;hpb=18b72639839461c074eb18fc2b58aa2a326485a1

diff --git a/forth.forth b/forth.forth
index 47224b9..5c9834f 100644
--- a/forth.forth
+++ b/forth.forth
@@ -155,21 +155,6 @@ here define-does then compiling ;
 : '> 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 ;