Revert last commit.

diff --git a/fth/system.fth b/fth/system.fth
index 71b778ea09876e09361758f372beea76afa0b28b..b74c812af7671a86f14bc9562b0d8836cd7605b0 100644 (file)
--- 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
 ;