From 66a7dc89cdd30b31fab0c529790b79dcf365d068 Mon Sep 17 00:00:00 2001 From: Ralph Ronnquist Date: Wed, 5 May 2021 13:51:09 +1000 Subject: [PATCH 1/1] slight rebranding --- init/sys.f | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) 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 -- 2.39.2