diff options
| author | kitty <nepeta@canaglie.net> | 2026-03-20 01:49:02 +1100 |
|---|---|---|
| committer | kitty <nepeta@canaglie.net> | 2026-03-20 01:49:02 +1100 |
| commit | 0c19ba3275211d20d954102cddc859222e41ae39 (patch) | |
| tree | c0c46338854d52252b5ef380b9b14f791d17a942 /readme.md | |
| parent | 3e8972d7ce7859234d13be9e1949295901ac4806 (diff) | |
import comparisons
Diffstat (limited to 'readme.md')
| -rw-r--r-- | readme.md | 36 |
1 files changed, 36 insertions, 0 deletions
@@ -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. |
