From 0c19ba3275211d20d954102cddc859222e41ae39 Mon Sep 17 00:00:00 2001
From: kitty <nepeta@canaglie.net>
Date: Fri, 20 Mar 2026 01:49:02 +1100
Subject: import comparisons

---
 readme.md | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)

(limited to 'readme.md')

diff --git a/readme.md b/readme.md
index f799132..0bc797e 100644
--- a/readme.md
+++ b/readme.md
@@ -77,6 +77,24 @@ end compilation of the currently compiling word.
 ### `@   ( a -- u )`
 fetch the 64 bit value at memory address a.
 
+### `=   ( n1 n2 -- ? )`
+return true if n1 and n2 are equal.
+
+### `<   ( n1 n2 -- ? )`
+return true if n1 is less than n2.
+
+### `<=   ( n1 n2 -- ? )`
+return true if n1 is less than or equal to n2.
+
+### `<>   ( n1 n2 -- ? )`
+return true if n1 and n2 are not equal.
+
+### `>   ( n1 n2 -- ? )`
+return true if n1 is greater than n2.
+
+### `>=   ( n1 n2 -- ? )`
+return true if n1 is greater than or equal to n2.
+
 ### `>body   ( xt -- a )`
 yield the code field of xt.
 
@@ -87,6 +105,24 @@ in the input buffer.
 ### `>r   ( u -- ) ( R: -- u )`
 move a value from the working stack to the return stack.
 
+### `0=   ( n -- ? )`
+return true if n is equal to zero.
+
+### `0<   ( n -- ? )`
+return true if n is less than zero.
+
+### `0<=   ( n -- ? )`
+return true if n is less than or equal to zero.
+
+### `0<>   ( n -- ? )`
+return true if n is not equal to zero.
+
+### `0>   ( n -- ? )`
+return true if n is greater than zero.
+
+### `0>=   ( n -- ? )`
+return true if n is greater than or equal to zero.
+
 ### `1+   ( u -- u')`
 add one to u.
 
-- 
cgit v1.2.3