mirror of
https://github.com/nineties/planckforth
synced 2024-12-25 21:58:22 +01:00
Add "immediate"
This commit is contained in:
parent
f52c2203dd
commit
4f2581968d
1 changed files with 6 additions and 0 deletions
6
core.fs
6
core.fs
|
@ -394,6 +394,12 @@ l @ C + # { ? k @ k @ + | } $
|
|||
\ so that we can write comments in compile-mode.
|
||||
set-immediate \
|
||||
|
||||
\ Set immediate-bit of the word being defind
|
||||
: immediate
|
||||
r @ C + # { ? immediate-bit | } $
|
||||
;
|
||||
set-immediate immediate
|
||||
|
||||
: alias-builtin \ ( "name-new" "name-old" -- )
|
||||
\ Create new word "name-new".
|
||||
\ Copy code pointer of builtin word "name-old" to
|
||||
|
|
Loading…
Reference in a new issue