projects
/
watForth.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
18b7263
)
master commit for publish
author
ken
<ken@mihrtec.com>
Fri, 16 Mar 2018 20:27:57 +0000
(13:27 -0700)
committer
ken
<ken@mihrtec.com>
Fri, 16 Mar 2018 20:27:57 +0000
(13:27 -0700)
forth.forth
patch
|
blob
|
history
diff --git
a/forth.forth
b/forth.forth
index
47224b9
..
5c9834f
100644
(file)
--- a/
forth.forth
+++ b/
forth.forth
@@
-155,21
+155,6
@@
here define-does then compiling ;
: '> word find-does ;
:> '> word find-does , ;
: '> 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 ;
\ Include a remote file
: REQUIRE" ' quit channel-open dup \' " \, fetch channel-await ;