From b60d4a658481962a2d8f3024674977c94c1b93b6 Mon Sep 17 00:00:00 2001
From: Helmut Eller <eller.helmut@gmail.com>
Date: Wed, 21 Dec 2016 20:26:42 +0100
Subject: [PATCH] Revert last commit.

---
 fth/system.fth | 23 -----------------------
 1 file changed, 23 deletions(-)

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
 ;
-- 
2.20.1