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

Revert "Add indirection to key and emit"

Browse source 
This reverts commit ca9bf42a26.
This commit is contained in:
Koichi Nakamura 2021-01-09 19:36:56 +09:00
parent da4f8f1ff8
commit 8d7a344064
1 changed files with 2 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
bootstrap.fs
View file

@ -433,6 +433,8 @@ alias-builtin bye Q
alias-builtin cell C alias-builtin cell C
alias-builtin &here h alias-builtin &here h
alias-builtin &latest l alias-builtin &latest l
alias-builtin key k
alias-builtin emit t
alias-builtin branch j alias-builtin branch j
alias-builtin 0branch J alias-builtin 0branch J
alias-builtin execute x alias-builtin execute x
@ -452,21 +454,6 @@ alias-builtin and &
alias-builtin or | alias-builtin or |
alias-builtin xor ^ alias-builtin xor ^
\ One-step indirection for key and emit. Since k and t are
\ temporary implementations, we will allow them to be replaced later.
&here @ # cell + &here !
: key-func [ ' L , , ] ;
' k key-func !
: key key-func @ execute ;
&here @ # cell + &here !
: emit-func [ ' L , , ] ;
' t emit-func !
: emit emit-func @ execute ;
\ Rename existing FORTH words \ Rename existing FORTH words
: word W ; : word W ;
: find F ; : find F ;