From e11f6c122e7d89a22c900a6d77e08a75ec1dc115 Mon Sep 17 00:00:00 2001 From: polluks Date: Tue, 3 Jun 2025 11:00:48 +0200 Subject: [PATCH] Fixed typos --- RELEASES.md | 4 ++-- csrc/pf_core.c | 2 +- csrc/pf_host.h | 2 +- csrc/pf_io.c | 2 +- csrc/pf_win32.h | 2 +- fth/coretest.fth | 2 +- fth/file.fth | 2 +- fth/filefind.fth | 2 +- fth/floats.fth | 2 +- fth/see.fth | 2 +- fth/slashqt.fth | 2 +- fth/system.fth | 2 +- fth/utils/clone.fth | 2 +- 13 files changed, 14 insertions(+), 14 deletions(-) diff --git a/RELEASES.md b/RELEASES.md index b67ee89..bdef0da 100644 --- a/RELEASES.md +++ b/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. diff --git a/csrc/pf_core.c b/csrc/pf_core.c index 6e28aad..c0710fc 100644 --- a/csrc/pf_core.c +++ b/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(); diff --git a/csrc/pf_host.h b/csrc/pf_host.h index 89597bf..bce98d1 100644 --- a/csrc/pf_host.h +++ b/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 diff --git a/csrc/pf_io.c b/csrc/pf_io.c index 53b1ed2..d0c75d1 100644 --- a/csrc/pf_io.c +++ b/csrc/pf_io.c @@ -29,7 +29,7 @@ */ void ioInit( void ) { - /* System dependant terminal initialization. */ + /* System dependent terminal initialization. */ sdTerminalInit(); } void ioTerm( void ) diff --git a/csrc/pf_win32.h b/csrc/pf_win32.h index c383c82..1bc6221 100644 --- a/csrc/pf_win32.h +++ b/csrc/pf_win32.h @@ -5,7 +5,7 @@ #include /*************************************************************** -** 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 diff --git a/fth/coretest.fth b/fth/coretest.fth index 53fc24d..503c249 100644 --- a/fth/coretest.fth +++ b/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 } diff --git a/fth/file.fth b/fth/file.fth index 6d26af3..651096d 100644 --- a/fth/file.fth +++ b/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 ) diff --git a/fth/filefind.fth b/fth/filefind.fth index 62f7c8f..bc39b3f 100644 --- a/fth/filefind.fth +++ b/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 diff --git a/fth/floats.fth b/fth/floats.fth index 404fe8f..c34d195 100644 --- a/fth/floats.fth +++ b/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? diff --git a/fth/see.fth b/fth/see.fth index 760b034..42827d9 100644 --- a/fth/see.fth +++ b/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 diff --git a/fth/slashqt.fth b/fth/slashqt.fth index 7f25aca..06b8517 100644 --- a/fth/slashqt.fth +++ b/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] diff --git a/fth/system.fth b/fth/system.fth index da8b9fc..13f2ab8 100644 --- a/fth/system.fth +++ b/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 - ; diff --git a/fth/utils/clone.fth b/fth/utils/clone.fth index 98254b5..337fd98 100644 --- a/fth/utils/clone.fth +++ b/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 ;