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

Add k loop variable.

Browse Source
This commit is contained in:
Brad Nelson
2022-04-24 14:58:42 -07:00
parent 0495134a0f
commit 9d33c431d3
2 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
common/boot.fs
View File

@ -84,6 +84,7 @@ variable leaving
: loop 1 aliteral postpone +loop ; immediate : loop 1 aliteral postpone +loop ; immediate
: i ( -- n ) postpone r@ ; immediate : i ( -- n ) postpone r@ ; immediate
: j ( -- n ) rp@ 3 cells - @ ; : j ( -- n ) rp@ 3 cells - @ ;
: k ( -- n ) rp@ 5 cells - @ ;
( Exceptions ) ( Exceptions )
variable handler variable handler

1
common/forth_namespace_tests.fs
View File

@ -97,6 +97,7 @@ e: check-boot
out: throw out: throw
out: catch out: catch
out: handler out: handler
out: k
out: j out: j
out: i out: i
out: loop out: loop