Merge branch 'master' into build64

[pforth] / fth / system.fth

diff --git a/fth/system.fth b/fth/system.fth
index 5830cce..c84f08b 100644 (file)
--- a/fth/system.fth
+++ b/fth/system.fth
@@ -364,6 +364,14 @@
        rot = -rot = and
 ;
 
        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
 \ define some useful constants ------------------------------
 1 0= constant FALSE
 0 0= constant TRUE


@@ -828,4 +836,6 @@ decimal
 FREEZE    \ prevent forgetting below this point
 
 .( Dictionary compiled, save in "pforth.dic".) cr
 FREEZE    \ prevent forgetting below this point
 
 .( Dictionary compiled, save in "pforth.dic".) cr

+\ 300000 headers-size !
+\ 700000 code-size !

 c" pforth.dic" save-forth
 c" pforth.dic" save-forth