slight rebranding
authorRalph Ronnquist <ralph.ronnquist@gmail.com>
Wed, 5 May 2021 03:51:09 +0000 (13:51 +1000)
committerRalph Ronnquist <ralph.ronnquist@gmail.com>
Wed, 5 May 2021 03:51:09 +0000 (13:51 +1000)
init/sys.f

index 6e7c8539bcdd67ea720b7faf5c2f15c8781b0880..bf79f380a5ea3c80412121172455fac30f5de162 100644 (file)
@@ -75,8 +75,9 @@ EXIT [
     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
@@ -99,11 +100,12 @@ EXIT [
   DROP DROP ;
 
 : NEWLINE 10 EMIT ;
+
 : 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