From 9df4f2cac711b5ac50fdaf0f0251274531516bc9 Mon Sep 17 00:00:00 2001 From: Brad Nelson Date: Sat, 2 Jan 2021 22:23:16 -0800 Subject: [PATCH] Extra space. --- ueforth/common/boot.fs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ueforth/common/boot.fs b/ueforth/common/boot.fs index 7044740..7611d15 100644 --- a/ueforth/common/boot.fs +++ b/ueforth/common/boot.fs @@ -163,7 +163,7 @@ variable hld dup @ dup ['] DOLIT = if drop cell+ dup @ . else see. then cell+ ; : exit= ( xt -- ) ['] exit = ; : see-loop >:body begin see-one dup @ exit= until ; -: see cr ['] : see. ' dup see. see-loop drop ['] ; see. cr ; +: see cr ['] : see. ' dup see. space see-loop drop ['] ; see. cr ; : words last @ begin dup see. >link dup 0= until drop cr ; ( Input )