X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/452fad6a218f534f3c3fbbef65410d12a4e1c9dc..0868989592470c064bae35eea78a6d23669d1995:/fth/system.fth

diff --git a/fth/system.fth b/fth/system.fth
index c33f40b..5e7aff0 100644
--- a/fth/system.fth
+++ b/fth/system.fth
@@ -360,6 +360,10 @@
         2* swap
 ;
 
+: D= ( xd1 xd2 -- flag )
+	rot = -rot = and
+;
+
 \ define some useful constants ------------------------------
 1 0= constant FALSE
 0 0= constant TRUE