duskos

commit d74b61b0a4bb8bb21236260ea871d7d7cf303e7c
parent e534e82d9f5a62cf6cd763c71c335b7fb1e8d8d3
Author: Virgil Dupras <hsoft@hardcoded.net>
Date:   Sat, 24 Jun 2023 12:38:16 -0400

bootlo: simplify "fill"

Diffstat:
M
fs/xcomp/bootlo.fs
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/fs/xcomp/bootlo.fs b/fs/xcomp/bootlo.fs
@@ -233,9 +233,9 @@ alias execute | immediate
   to j to i i j < if begin yield to1+ i i j >= until then unyield ;
 
 code fill ( a u c -- )
-  W>A, PSP) 4 +) @, W<>A, 1 PSP) +n, begin \ A=a W=c P+0=u+1
+  1 PSP) +n, begin
     -1 PSP) +n, 0 NZ) branchC, 8 ps+, drop, exit, then
-    A) 8b) !, 1 A+n, branch, drop
+    PSP) 4 +) 8b) [!+], again
 
 : allot0 ( n -- ) here over 0 fill allot ;
 : nc, ( n -- ) for word runword c, next ;