From 33586205aaf3e47eb0297421ea69af3593255b28 Mon Sep 17 00:00:00 2001 From: Brad Nelson Date: Fri, 18 Jun 2021 16:54:17 -0700 Subject: [PATCH] Adding erase and blank. --- ueforth/common/boot.fs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/ueforth/common/boot.fs b/ueforth/common/boot.fs index 9582286..8adf584 100644 --- a/ueforth/common/boot.fs +++ b/ueforth/common/boot.fs @@ -192,7 +192,8 @@ variable hld ( Fill, Move ) : cmove ( a a n -- ) for aft >r dup c@ r@ c! 1+ r> 1+ then next 2drop ; : cmove> ( a a n -- ) for aft 2dup swap r@ + c@ swap r@ + c! then next 2drop ; -: fill ( a a n -- ) swap for swap aft 2dup c! 1 + then next 2drop ; +: fill ( a n ch -- ) swap for swap aft 2dup c! 1 + then next 2drop ; +: erase ( a n -- ) 0 fill ; : blank ( a n -- ) bl fill ; ( Better Errors ) : notfound ( a n n -- )