Miroirs/planckforth
1
0
Fork 0
mirror of https://github.com/nineties/planckforth synced 2024-12-25 21:58:22 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add "marker"

Browse source
This commit is contained in:
Koichi Nakamura 2021-01-15 14:34:39 +09:00
parent b70bb4befc
commit e962e17f42
1 changed files with 12 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
bootstrap.fs
View file

@ -2466,6 +2466,17 @@ need-defined (read)
word throw included
;
( === Forget === )
\ Define a word "name". The word forgets itself and everything
\ defined after when executed.
: marker ( "name" -- )
create
latest name>link , \ save latest
does>
@ &latest !
;
( === Primitive Instructions === )
: insn:docol docol ;
@ -2548,7 +2559,7 @@ need-defined (read)
( \
c@ c! c, @ ! ,
word find >cfa >dfa
word find >cfa >dfa marker
bye execute exit here latest
end-update-dictionary
; execute