From: Helmut Eller <eller.helmut@gmail.com>
Date: Wed, 21 Dec 2016 19:26:42 +0000 (+0100)
Subject: Revert last commit.
X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/commitdiff_plain/b60d4a658481962a2d8f3024674977c94c1b93b6

Revert last commit.
---

diff --git a/fth/system.fth b/fth/system.fth
index 71b778e..b74c812 100644
--- a/fth/system.fth
+++ b/fth/system.fth
@@ -596,29 +596,6 @@ ustack 0stackp
         char [compile] literal
 ; immediate
 
-: TOUPPER ( char -- char' )
-	dup [char] a >=
-	IF
-		dup [char] z <= IF [ char A char a - ] literal + THEN
-	THEN
-;
-
-: UPCASE ( c-addr u -- )
-	over + swap ?do
-		i c@ toupper i c!
-	loop
-;
-
-create WORD-SAVE-AREA 257 allot
-
-\ This version performs case-conversion for backward compatibility.
-: WORD ( char -- addr )
-	parse-word
-	word-save-area place
-	word-save-area count upcase
-	word-save-area
-;
-
 : $TYPE  ( $string -- )
         count type
 ;