projects
/
watForth.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
working: real time system (event-driven), coroutines, asynch sockets
[watForth.git]
/
forth.forth
diff --git
a/forth.forth
b/forth.forth
index
cb6090f
..
dce37c5
100644
(file)
--- a/
forth.forth
+++ b/
forth.forth
@@
-36,6
+36,8
@@
word BYE 25 define
word WORDS 27 define
word CHANNEL-IN 35 define
word CHANNEL-OUT 48 define
word WORDS 27 define
word CHANNEL-IN 35 define
word CHANNEL-OUT 48 define
+word CHANNEL-OPEN 51 define
+word CHANNEL-AWAIT 50 define
word !HERE 36 define
word HERE 28 define
word !HERE 36 define
word HERE 28 define
@@
-139,6
+141,7
@@
here define-does then compiling ;
\ Set the number conversion base
: BASE 14348 swap ! ;
\ Set the number conversion base
: BASE 14348 swap ! ;
+: BASE10 10 base ;
(
End of bootstrap process
(
End of bootstrap process