From a067c3e804c05868b5794122696d216c58fd8c9c Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@sbcglobal.net>
Date: Sat, 6 Jan 2024 07:04:44 -0800
Subject: [PATCH] COMPLEMENT, not COMPLIMENT :-)

---
 src/toolsrc/plforth.pla | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/src/toolsrc/plforth.pla b/src/toolsrc/plforth.pla
index 1a37701..ac06c10 100644
--- a/src/toolsrc/plforth.pla
+++ b/src/toolsrc/plforth.pla
@@ -95,7 +95,7 @@ const hidden_flag   = $80
 predef _drop_(a)#0, _swap_(a,b)#2, _dup_(a)#2, _dashdup_(a)#1, _over_(a,b,c)#4, _rot_(a,b,c)#3
 predef _add_(a,b)#1, _inc_(a)#1, _inc2_(a)#1, _dec_(a)#1, _dec2_(a)#1
 predef _sub_(a,b)#1, _mul_(a,b)#1, _div_(a,b)#1
-predef _neg_(a)#1, _and_(a,b)#1, _or_(a,b)#1, _xor_(a,b)#1, _compliment_(a)#1, _not_(a)#1
+predef _neg_(a)#1, _and_(a,b)#1, _or_(a,b)#1, _xor_(a,b)#1, _complement_(a)#1, _not_(a)#1
 predef _mod_(a,b)#1, _abs_(a)#1, _max_(a,b)#1, _min_(a,b)#1
 predef _lshift_(a,b)#1, _rshift_(a,b)#1
 predef _cset_(a,b)#0, _cget_(a)#1, _wset_(a,b)#0, _wplusset_(a,b)#0, _wget_(a)#1
@@ -200,14 +200,14 @@ word = @d_and, 0, @_or_, $96
 char d_xor = "XOR"
 byte = inline_flag
 word = @d_or, 0, @_xor_, $98
-// COMPLIMENT
-char d_compliment = "COMPLIMENT"
+// COMPLEMENT
+char d_complement = "COMPLEMENT"
 byte = inline_flag
-word = @d_xor, 0, @_compliment_, $92
+word = @d_xor, 0, @_complement_, $92
 // NOT
 char d_not = "NOT"
 byte = inline_flag
-word = @d_compliment, 0, @_not_, $80
+word = @d_complement, 0, @_not_, $80
 // LEFT SHIFT
 char d_lshift = "LSHIFT"
 byte = inline_flag
@@ -1122,7 +1122,7 @@ end
 def _xor_(a,b)#1
   return a ^ b
 end
-def _compliment_(a)#1
+def _complement_(a)#1
   return ~a
 end
 def _not_(a)#1