This introduces a RESIZE-FILE-LIMIT

[debian/pforth] / fth / system.fth

diff --git a/fth/system.fth b/fth/system.fth
index c1b7f66692773eeb16d41cdf45330a6b363d5912..48572cf7a078284ab516c9605c8bef0e59d7ee60 100644 (file)
--- 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