ANS Forth for logical not is 0=, not invert. Replace wrong usage.

2000-01-28 03:41:39 +00:00 · 2000-01-28 03:41:39 +00:00 · c2881538fa
commit c2881538fa
parent d9d102dd14
1 changed files with 2 additions and 2 deletions
--- a/sys/boot/ficl/softwords/softcore.fr
+++ b/sys/boot/ficl/softwords/softcore.fr
@ -45,8 +45,8 @@ decimal 32 constant bl
 \ ** CORE EXT
 0  constant false 
 -1 constant true 
-: <>   = invert ; 
-: 0<>  0= invert ; 
+: <>   = 0= ; 
+: 0<>  0= 0= ; 
 : compile,  , ; 
 : erase   ( addr u -- )    0 fill ; 
 : nip     ( y x -- x )     swap drop ;