diff options
| -rw-r--r-- | sys/boot/ficl/softwords/softcore.fr | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/sys/boot/ficl/softwords/softcore.fr b/sys/boot/ficl/softwords/softcore.fr index a292dbe..bf584d0 100644 --- 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 ; |
