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

Adding :noname

Browse Source
This commit is contained in:
Brad Nelson
2021-02-27 11:31:36 -08:00
parent 065c15900d
commit d13dbac8bb
1 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
ueforth/common/utils.fs
View File

@ -10,6 +10,9 @@
( Remove from Dictionary ) ( Remove from Dictionary )
: forget ( "name" ) ' dup >link current @ ! >name drop here - allot ; : forget ( "name" ) ' dup >link current @ ! >name drop here - allot ;
2 constant SMUDGE
: :noname ( -- xt ) 0 , current @ @ , SMUDGE , here dup current @ ! ['] = @ , postpone ] ;
internals definitions internals definitions
: mem= ( a a n -- f) : mem= ( a a n -- f)
for aft 2dup c@ swap c@ <> if 2drop rdrop 0 exit then 1+ swap 1+ then next 2drop -1 ; for aft 2dup c@ swap c@ <> if 2drop rdrop 0 exit then 1+ swap 1+ then next 2drop -1 ;