X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=fth%2Fsystem.fth;h=21200fac85da1cd06b85b34202520f1e41f5de44;hb=f1994bf609c5b053c5c0d7db2062b570fa9f5ead;hp=5830cce317986a87169dc6267266f3a02c18ea8c;hpb=391238894e9b4c5ba60ff52a995b2cda81242242;p=debian%2Fpforth

diff --git a/fth/system.fth b/fth/system.fth
index 5830cce..21200fa 100644
--- a/fth/system.fth
+++ b/fth/system.fth
@@ -364,6 +364,14 @@
 	rot = -rot = and
 ;
 
+: D< ( d1 d2 -- flag )
+    d- nip 0<
+;
+
+: D> ( d1 d2 -- flag )
+    2swap d<
+;
+
 \ define some useful constants ------------------------------
 1 0= constant FALSE
 0 0= constant TRUE