projects
/
rrq
/
jonasforth.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
Add instructions for running on real hardware
[rrq/jonasforth.git]
/
sys.f
diff --git
a/sys.f
b/sys.f
index 27d540a87cee34e5f172194a21b88812ec72338e..0815e0fe0ca89d729a068e5072a4e8b721635460 100644
(file)
--- a/
sys.f
+++ b/
sys.f
@@
-1,4
+1,4
@@
-
BUF
" :" CREATE ] DOCOL
+
S
" :" CREATE ] DOCOL
READ-WORD CREATE
LIT DOCOL ,
]
@@
-83,5
+83,7
@@
EXIT [
( Read a number from standard input. )
: READ-NUMBER READ-WORD PARSE-NUMBER ;
+S" Ready." TELL NEWLINE
+
( vim: syntax=forth
)