aoc-forth

commit 7c838655156d264576068f5f4a97e3fd1b777bbf
parent b43fe55bc8eba3007954418e6a217e029ddedef4
Author: alex wennerberg <alex@alexwennerberg.com>
Date:   Sun,  4 Dec 2022 00:29:55 -0800

Improve erase

Diffstat:
M
2022/03.fs
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/2022/03.fs b/2022/03.fs
@@ -8,8 +8,8 @@ variable total2
 128 barray charbuf2
 
 \ TODO use erase
-: clear-buf 128 0 do r@ 0 swap charbuf c! loop ;
-: clear-buf2 128 0 do r@ 0 swap charbuf2 c! loop ;
+: clear-buf 0 charbuf 128 erase ;
+: clear-buf2 0 charbuf2 128 erase ;
 : set-charbuf ( a u -- ) 0 do c@+ charbuf 1 swap c! loop drop ;
 : set-charbuf2 ( a u -- ) 0 do c@+ charbuf2 1 swap c! loop drop ;