From 3657b78e33f186d7b1a5971e97b80fac6d2cf5ce Mon Sep 17 00:00:00 2001 From: mgcaret Date: Tue, 21 Jan 2020 23:41:07 -0800 Subject: [PATCH] fix stack notation for $2VALUE --- asm/forth-dictionary.s | 2 +- docs/forth_dictionary.md | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/asm/forth-dictionary.s b/asm/forth-dictionary.s index 469c50c..51798f7 100644 --- a/asm/forth-dictionary.s +++ b/asm/forth-dictionary.s @@ -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 diff --git a/docs/forth_dictionary.md b/docs/forth_dictionary.md index fb42e7b..85dc3fa 100644 --- a/docs/forth_dictionary.md +++ b/docs/forth_dictionary.md @@ -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 ## '