Use 4 spaces for indentation.

[debian/pforth] / fth / system.fth

diff --git a/fth/system.fth b/fth/system.fth
index c33f40bac6cfd733a7ebd9cc3672651e3a9dbb58..5e7aff07c529f3fb7cca0ea4ff170dffd9b2d3f2 100644 (file)
--- 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