alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Switch dump to FOR..NEXT.

Browse Source
This commit is contained in:
Brad Nelson
2022-07-30 15:40:58 -07:00
parent 5194234da3
commit 94bb09481d
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
common/utils.fs
View File

@ -19,7 +19,7 @@
( Examine Memory ) ( Examine Memory )
: dump ( a n -- ) : 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 ) ( Print spaces )
: spaces ( n -- ) for aft space then next ; : spaces ( n -- ) for aft space then next ;