Commit 4ff4f0b9 authored by paysan's avatar paysan

Small change (body> instead of 2 cells -)

parent 18d39630
......@@ -771,8 +771,8 @@ was purely instructional, to remind the programmer which vocabulary
was \forth{CURRENT}, and which was \forth{CONTEXT}:
\begin{Code}
: .context context @ 2 cells - >name id. ;
: .current current @ 2 cells - >name id. ;
: .context context @ body> >name id. ;
: .current current @ body> >name id. ;
\end{Code}
\goodbreak
\noindent If you typed
......@@ -793,7 +793,7 @@ factoring. It would have been possible to consolidate the repeated
passage into a third definition:
\begin{Code}
: .vocabulary ( pointer -- ) @ 2 cells - >name id. ;
: .vocabulary ( pointer -- ) @ body> >name id. ;
\end{Code}
shortening the original definitions to:
......@@ -811,7 +811,7 @@ definition, and let it take as an argument either the word
Applying the principles of good naming, I suggested:
\begin{Code}
: is ( adr -- ) @ 2 cells - >name id. ;
: is ( adr -- ) @ body> >name id. ;
\end{Code}
allowing the syntax
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment