Skip to content

Commit 3782f55

Browse files
committed
jonesforth.f: fix typos
1 parent be3ff9b commit 3782f55

1 file changed

Lines changed: 7 additions & 7 deletions

File tree

jonesforth.f

Lines changed: 7 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -4,7 +4,7 @@
44
\ This is PUBLIC DOMAIN (see public domain release statement below).
55
\ $Id: jonesforth.f,v 1.18 2009-09-11 08:32:33 rich Exp $
66
\
7-
\ The first part of this tutorial is in jonesforth.S. Get if from http://annexia.org/forth
7+
\ The first part of this tutorial is in jonesforth.S. Get it from http://annexia.org/forth
88
\
99
\ PUBLIC DOMAIN ----------------------------------------------------------------------
1010
\
@@ -82,7 +82,7 @@
8282
[ \ go into immediate mode (temporarily)
8383
CHAR : \ push the number 58 (ASCII code of colon) on the parameter stack
8484
] \ go back to compile mode
85-
LITERAL \ compile LIT 58 as the definition of ':' word
85+
LITERAL \ compile LIT 58 for the definition of the ':' word
8686
;
8787

8888
\ A few more character constants defined the same way as above.
@@ -130,7 +130,7 @@
130130
\ where OFFSET is the offset of 'rest'
131131
\ condition IF true-part ELSE false-part THEN
132132
\ -- compiles to: --> condition 0BRANCH OFFSET true-part BRANCH OFFSET2 false-part rest
133-
\ where OFFSET if the offset of false-part and OFFSET2 is the offset of rest
133+
\ where OFFSET is the offset of false-part and OFFSET2 is the offset of rest
134134

135135
\ IF is an IMMEDIATE word which compiles 0BRANCH followed by a dummy offset, and places
136136
\ the address of the 0BRANCH on the stack. Later when we see THEN, we pop that address
@@ -218,7 +218,7 @@
218218
\ FORTH allows ( ... ) as comments within function definitions. This works by having an IMMEDIATE
219219
\ word called ( which just drops input characters until it hits the corresponding ).
220220
: ( IMMEDIATE
221-
1 \ allowed nested parens by keeping track of depth
221+
1 \ allows nested parens by keeping track of depth
222222
BEGIN
223223
KEY \ read next character
224224
DUP '(' = IF \ open paren?
@@ -288,7 +288,7 @@ \ FORTH allows ( ... ) as comments within function definitions. This works by h
288288
will print out these characters:
289289
<space> <space> - 1 2 3
290290

291-
In other words, the number padded left to a certain number of characters.
291+
In other words, the number padded on the left to a certain number of characters.
292292

293293
The full number is printed even if it is wider than width, and this is what allows us to
294294
define the ordinary functions U. and . (we just set width to zero knowing that the full
@@ -1393,7 +1393,7 @@ EXCEPTION-MARKER, namely a function that just drops the stack frame and itself
13931393
To make it more like a C string, at runtime Z" just leaves the address of the string
13941394
on the stack (not address & length as with S"). To implement this we need to add the
13951395
extra NUL to the string and also a DROP instruction afterwards. Apart from that the
1396-
implementation just a modified S".
1396+
implementation is just a modified S".
13971397
)
13981398
: Z" IMMEDIATE
13991399
STATE @ IF ( compiling? )
@@ -1520,7 +1520,7 @@ EXCEPTION-MARKER, namely a function that just drops the stack frame and itself
15201520
(
15211521
UNUSED returns the number of cells remaining in the user memory (data segment).
15221522

1523-
For our implementation we will use Linux brk(2) system call to find out the end
1523+
For our implementation we will use the Linux brk(2) system call to find out the end
15241524
of the data segment and subtract HERE from it.
15251525
)
15261526
: GET-BRK ( -- brkpoint )

0 commit comments

Comments
 (0)