projects
/
rrq
/
jonasforth.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
c54fde9
)
slight rebranding
author
Ralph Ronnquist
<ralph.ronnquist@gmail.com>
Wed, 5 May 2021 03:51:09 +0000
(13:51 +1000)
committer
Ralph Ronnquist
<ralph.ronnquist@gmail.com>
Wed, 5 May 2021 03:51:09 +0000
(13:51 +1000)
init/sys.f
patch
|
blob
|
history
diff --git
a/init/sys.f
b/init/sys.f
index 6e7c8539bcdd67ea720b7faf5c2f15c8781b0880..bf79f380a5ea3c80412121172455fac30f5de162 100644
(file)
--- a/
init/sys.f
+++ b/
init/sys.f
@@
-75,8
+75,9
@@
EXIT [
KEY
10 = UNTIL ;
KEY
10 = UNTIL ;
-\ So far, S" has only worked in immediate mode, which is backwards -- actually,
-\ the main use-case of this is as a compile-time word. Let's fix that.
+\ So far, S" has only worked in immediate mode, which is backwards --
+\ actually, the main use-case of this is as a compile-time word. Let's
+\ fix that.
: S" IMMEDIATE
' LITSTRING ,
HERE @ 0 C, \ We will put the length here
: S" IMMEDIATE
' LITSTRING ,
HERE @ 0 C, \ We will put the length here
@@
-99,11
+100,12
@@
EXIT [
DROP DROP ;
: NEWLINE 10 EMIT ;
DROP DROP ;
: NEWLINE 10 EMIT ;
+
: SPACE 32 EMIT ;
( Read a number from standard input. )
: READ-NUMBER READ-WORD PARSE-NUMBER ;
: SPACE 32 EMIT ;
( Read a number from standard input. )
: READ-NUMBER READ-WORD PARSE-NUMBER ;
-: RESTART S" Ready." TELL NEWLINE ;
-RESTART
+: RESTART S" rrq's UEFI boot using jonasforth." TELL NEWLINE ;
+RESTART