mirror of
https://github.com/mgcaret/of816.git
synced 2025-02-08 10:31:41 +00:00
fix stack notation for $2VALUE
This commit is contained in:
parent
d2e032a559
commit
3657b78e33
@ -5783,7 +5783,7 @@ dword IS_USER_WORD,"(IS-USER-WORD)"
|
||||
EXIT
|
||||
eword
|
||||
|
||||
; H: ( n str len ) create a definition that pushes the first cell of the body, initially n
|
||||
; H: ( n str len -- ) create a definition that pushes the first cell of the body, initially n
|
||||
dword dVALUE,"$VALUE"
|
||||
jsr _3parm ; avoid dictionary corruption from stack underflow
|
||||
jsr _mkentry
|
||||
|
@ -1,6 +1,6 @@
|
||||
# Forth Dictionary
|
||||
|
||||
Updated: 2020-01-21 23:37:36 -0800
|
||||
Updated: 2020-01-21 23:40:51 -0800
|
||||
|
||||
## !
|
||||
|
||||
@ -106,7 +106,7 @@ by an existing buffer, free it.
|
||||
|
||||
## $VALUE
|
||||
|
||||
( n str len ) create a definition that pushes the first cell of the body, initially n
|
||||
_( n str len -- )_ create a definition that pushes the first cell of the body, initially n
|
||||
|
||||
## '
|
||||
|
||||
|
Loading…
x
Reference in New Issue
Block a user