X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/3b3c2dec4044db0e00b4353a7978e601f7e0f8c0..72f1b3208cdf872696330538033b16ad01aeb699:/fth/system.fth

diff --git a/fth/system.fth b/fth/system.fth
index c33f40b..c1b7f66 100644
--- a/fth/system.fth
+++ b/fth/system.fth
@@ -26,7 +26,7 @@
 \ Based on HMSL Forth
 \
 \ Author: Phil Burk
-\ Copyright 1994 3DO, Phil Burk, Larry Polansky, Devid Rosenboom
+\ Copyright 1994 3DO, Phil Burk, Larry Polansky, David Rosenboom
 \
 \ The pForth software code is dedicated to the public domain,
 \ and any third party may reproduce, distribute and modify
@@ -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