Switch dump to FOR..NEXT.

2022-07-30 15:40:58 -07:00
parent 5194234da3
commit 94bb09481d
1 changed files with 1 additions and 1 deletions
--- a/common/utils.fs
+++ b/common/utils.fs
@ -19,7 +19,7 @@

 ( Examine Memory )
 : dump ( a n -- )
-   cr 0 do i 16 mod 0= if cr then dup i + c@ . loop drop cr ;
+   cr 0 swap for dup 16 mod 0= if cr then 2dup + c@ . 1+ next 2drop cr ;

 ( Print spaces )
 : spaces ( n -- ) for aft space then next ;