From 8c0cb3a1bce114554059b44a31aa6a33218facef Mon Sep 17 00:00:00 2001 From: gerryjackson Date: Sun, 29 Nov 2015 10:03:10 +0000 Subject: [PATCH] STR= replaced with S= Should have been done before --- src/toolstest.fth | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/toolstest.fth b/src/toolstest.fth index 3e51226..efd9c6a 100644 --- a/src/toolstest.fth +++ b/src/toolstest.fth @@ -14,7 +14,7 @@ \ Version 0.13 31 October 2015 More tests on [ELSE] and [THEN] \ TRAVERSE-WORDLIST etc tests made conditional on the required \ search-order words being available -\ Calls to COMPARE replaced with STR= (in utilities.fth) +\ Calls to COMPARE replaced with S= (in utilities.fth) \ 0.11 25 April Added tests for N>R NR> SYNONYM TRAVERSE-WORDLIST \ NAME>COMPILE NAME>INTERPRET NAME>STRING \ 0.6 1 April 2012 Tests placed in the public domain. @@ -285,7 +285,7 @@ T{ : SYN3 SYN2 LITERAL ; SYN3 -> 2345 }T \ Compare string (caddr u) with name associated with nt \? : NAME? ( caddr u nt -- caddr u f ) \ f = true for name = (caddr u) string -\? NAME>STRING >UPPERCASE 2OVER STR= +\? NAME>STRING >UPPERCASE 2OVER S= \? ; \ The word to be executed by TRAVERSE-WORDLIST