Add k loop variable.

2022-04-24 14:58:42 -07:00
parent 0495134a0f
commit 9d33c431d3
2 changed files with 2 additions and 0 deletions
--- a/common/boot.fs
+++ b/common/boot.fs
@ -84,6 +84,7 @@ variable leaving
 : loop   1 aliteral postpone +loop ; immediate
 : i ( -- n ) postpone r@ ; immediate
 : j ( -- n ) rp@ 3 cells - @ ;
+: k ( -- n ) rp@ 5 cells - @ ;

 ( Exceptions )
 variable handler