Commit 5e030b0a authored by paysan's avatar paysan
Browse files

Error in chapter6 fixed

parent 4205df49
Loading
Loading
Loading
Loading
+4 −4
Original line number Diff line number Diff line
@@ -36,12 +36,12 @@ Here's an illustration of the dictionary entry created when we enter

{\sf
\bigskip
\begin{tabular}{@{} l l@{}}
DOER JOE & \\
\begin{tabular}{|l|l|}
\multicolumn{1}{l}{DOER JOE} & \multicolumn{1}{l}{}\\
\hline
\vline\ JOE & \vline\ pfa of NOTHING \vline \\
JOE & pfa of NOTHING \\
\hline
\ header &\  parameter field
\multicolumn{1}{l}{header} & \multicolumn{1}{l}{parameter field}
\end{tabular}
\bigskip
}
+3 −3
Original line number Diff line number Diff line
@@ -1163,7 +1163,7 @@ repeated code into the ``does'' part of a defining word:

\begin{Code}
: Port  ( offset -- )  Create ,
   \ DOES>  ( -- 'port) @ base.port.address + ;
   DOES>  ( -- 'port) @ base.port.address + ;
0 Port speaker
2 Port flipper-a
4 Port flipper-b
@@ -1199,7 +1199,7 @@ makes a constant out of it, then adds 2 to the address still on the
stack, for the next invocation of \forth{PORT}.

\begin{Code}
: Port   ( 'port -- 'next-port)  dup Create ,  2+ ;
: Port   ( 'port -- 'next-port)  dup Constant  2 + ;
   \ DOES>  ( -- 'port)
base.port.address
  Port speaker