X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/e0d21c12cf924ad826eb0e73a10c5167f0195f65..0b1e24898c41afa1f07854c295881b23aa2faea6:/fth/system.fth?ds=inline

diff --git a/fth/system.fth b/fth/system.fth
index c1b7f66..48572cf 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