--- gforth/history.fs	2001/09/17 09:19:22	1.28
+++ gforth/history.fs	2003/01/26 20:56:37	1.30
@@ -72,7 +72,7 @@ interpret/compile: ctrl  ( "<char>" -- c
 	nip nip
     THEN ;
 
-s" os-class" environment? [IF] s" unix" compare 0= [ELSE] true [THEN] 
+s" os-class" environment? [IF] s" unix" str= [ELSE] true [THEN] 
 [IF]
 : history-file ( -- addr u )
     s" GFORTHHIST" getenv dup 0= IF
@@ -146,6 +146,16 @@ Create lfpad #lf c,
 
 Create prefix-found  0 , 0 ,
 
+: sgn ( n -- -1/0/1 )
+ dup 0= IF EXIT THEN  0< 2* 1+ ;
+
+: capscomp  ( c_addr1 u c_addr2 -- n )
+ swap bounds
+ ?DO  dup c@ I c@ <>
+     IF  dup c@ toupper I c@ toupper =
+     ELSE  true  THEN  WHILE  1+  LOOP  drop 0
+ ELSE  c@ toupper I c@ toupper - unloop  THEN  sgn ;
+
 : word-lex ( nfa1 nfa2 -- -1/0/1 )
     dup 0=
     IF