Fixed typos

RELEASES.md

@@ -69,7 +69,7 @@ Documentation at http://www.softsynth.com/pforth/
 ## V24 2/20/09
 
 * Fixed Posix IO on Mac. ?TERMINAL was always returning true.
-* ACCCEPT now emits a space at end of line before output.
+* ACCEPT now emits a space at end of line before output.
 * Fixed RESIZE because it was returning the wrong address.
 
 ## V23 8/4/2008
@@ -127,7 +127,7 @@ Documentation at http://www.softsynth.com/pforth/
 * TO -> and +-> now parse input stream. No longer use to-flag.
 * TO -> and +-> now give error if used with non-immediate word.
 * Added (FLITERAL) support to SEE.
-* Aded TRACE facility for single step debugging of Forth words.
+* Added TRACE facility for single step debugging of Forth words.
 * Added stub for ?TERMINAL and KEY? for embedded systems.
 * Added PF_NO_GLOBAL_INIT for no reliance on global initialization.
 * Added PF_USER_FLOAT for customization of FP support.

csrc/pf_core.c

@@ -580,7 +580,7 @@ ThrowCode pfDoForth( const char *DicFileName, const char *SourceName, cell_t IfI
     return Result ? Result : gVarByeCode;
 
 error2:
-    MSG("pfDoForth: Error occured.\n");
+    MSG("pfDoForth: Error occurred.\n");
     pfDeleteTask( cftd );
     /* Terminate so we restore normal shell tty mode. */
     pfTerm();

csrc/pf_host.h

@@ -3,7 +3,7 @@
 #define _pf_system_h
 
 /***************************************************************
-** System Dependant Includes for PForth based on 'C'
+** System Dependent Includes for PForth based on 'C'
 **
 ** Author: Phil Burk
 ** Copyright 1994 3DO, Phil Burk, Larry Polansky, David Rosenboom

csrc/pf_io.c

@@ -29,7 +29,7 @@
 */
 void ioInit( void )
 {
-    /* System dependant terminal initialization. */
+    /* System dependent terminal initialization. */
     sdTerminalInit();
 }
 void ioTerm( void )

csrc/pf_win32.h

@@ -5,7 +5,7 @@
 #include <conio.h>
 
 /***************************************************************
-** WIN32 dependant include file for PForth, a Forth based on 'C'
+** WIN32 dependent include file for PForth, a Forth based on 'C'
 **
 ** Author: Phil Burk
 ** Copyright 1994 3DO, Phil Burk, Larry Polansky, David Rosenboom

fth/coretest.fth

@@ -76,7 +76,7 @@ TESTING 2* 2/ LSHIFT RSHIFT
 { 0S 2/ -> 0S }
 { 1 2/ -> 0 }
 { 4000 2/ -> 2000 }
-{ 1S 2/ -> 1S }             \ MSB PROPOGATED
+{ 1S 2/ -> 1S }             \ MSB PROPAGATED
 { 1S 1 XOR 2/ -> 1S }
 { MSB 2/ MSB AND -> MSB }
 

fth/file.fth

@@ -29,7 +29,7 @@ private{
 ;
 
 \ Read the next available char from file FILEID and if it is a \n then
-\ skip it; otherwise unread it.  IOR is non-zero if an error occured.
+\ skip it; otherwise unread it.  IOR is non-zero if an error occurred.
 \ C-ADDR is a buffer that can hold at least one char.
 : SKIP-\N { c-addr fileid -- ior }
     c-addr 1 fileid read-file     ( u ior )

fth/filefind.fth

@@ -90,7 +90,7 @@ ANEW TASK-FILEFIND.FTH
     r> context !
 ;
 
-\ Search entire dictionary for all occurences of named word.
+\ Search entire dictionary for all occurrences of named word.
 : FILE? {  | $word nfa done? -- , take name from input }
     0 -> done?
     bl word -> $word

fth/floats.fth

@@ -487,7 +487,7 @@ variable FP-IF-INIT
     THEN
 ;
 
-: FP.INIT  ( -- , install FP converion )
+: FP.INIT  ( -- , install FP conversion )
     fp.term
     what's number? is fp.old.number?
     ['] (fp.number?) is number?

fth/see.fth

@@ -120,7 +120,7 @@ exists? F* [IF]
     see.get.inline 0>
     IF  \ forward branch
         ." IF or WHILE "
-        see.get.target \ calculate adress of target
+        see.get.target \ calculate address of target
         1 +-> see_level
     ELSE
         ." UNTIL=>" see.get.target .hex

fth/slashqt.fth

@@ -136,7 +136,7 @@ create CRLF$    \ -- addr ; CR/LF as counted string
 ;
 
 create pocket  \ -- addr
-\ *G A tempory buffer to hold processed string.
+\ *G A temporary buffer to hold processed string.
 \    This would normally be an internal system buffer.
 
 s" /COUNTED-STRING" environment? 0= [if] 256 [then]

fth/system.fth

@@ -184,7 +184,7 @@
     body_offset - code>
 ;
 
-\ convert between addresses useable by @, and relocatable addresses.
+\ convert between addresses usable by @, and relocatable addresses.
 : USE->REL  ( useable_addr -- rel_addr )
         codebase -
 ;

fth/utils/clone.fth

@@ -468,7 +468,7 @@ create VAR1 567 ,
     IF
         ." TCL4 failed!" cr
     ELSE
-        ." TCL4 succeded! Yay!" cr
+        ." TCL4 succeeded! Yay!" cr
     THEN
 ;