From 94bb09481dff257091a9fa3adefad299dc012134 Mon Sep 17 00:00:00 2001
From: Brad Nelson <flagxor@gmail.com>
Date: Sat, 30 Jul 2022 15:40:58 -0700
Subject: [PATCH] Switch dump to FOR..NEXT.

---
 common/utils.fs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/common/utils.fs b/common/utils.fs
index 50061dc..501a94e 100644
--- 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 ;