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
--- a/common/forth_namespace_tests.fs
+++ b/common/forth_namespace_tests.fs
@ -97,6 +97,7 @@ e: check-boot
  out: throw 
  out: catch 
  out: handler 
+  out: k 
  out: j 
  out: i 
  out: loop