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

Fix inaccurate comment.

Browse Source
This commit is contained in:
Brad Nelson
2022-07-17 18:18:21 -07:00
parent 4789a2a3a2
commit de99bf9f84
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
common/tier1a_forth.fs
View File

@ -51,7 +51,7 @@
: 2@ ( a -- lo hi ) dup @ swap cell+ @ ; : 2@ ( a -- lo hi ) dup @ swap cell+ @ ;
: 2! ( lo hi a -- ) dup >r cell+ ! r> ! ; : 2! ( lo hi a -- ) dup >r cell+ ! r> ! ;
( Dictionary ) ( Heap Words )
: here ( -- a ) 'sys @ ; : here ( -- a ) 'sys @ ;
: allot ( n -- ) 'sys +! ; : allot ( n -- ) 'sys +! ;
: , ( n -- ) here ! cell allot ; : , ( n -- ) here ! cell allot ;