X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=init%2Fsys.f;h=bf79f380a5ea3c80412121172455fac30f5de162;hb=66a7dc89cdd30b31fab0c529790b79dcf365d068;hp=6e7c8539bcdd67ea720b7faf5c2f15c8781b0880;hpb=66af56e87b98d8a21bc85c426c7475373f899fa2;p=rrq%2Fjonasforth.git

diff --git a/init/sys.f b/init/sys.f
index 6e7c853..bf79f38 100644
--- a/init/sys.f
+++ b/init/sys.f
@@ -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