X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/1a088514966ccf1da083dd7a291f115748c476f5..c1a87b8298475c3fdd007b14a1413d2a6fd0fa61:/fth/system.fth

diff --git a/fth/system.fth b/fth/system.fth
index c1b7f66..c84f08b 100644
--- 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
@@ -721,9 +729,11 @@ ustack 0stackp
 variable TRACE-INCLUDE
 
 : INCLUDE.MARK.START  ( c-addr u -- , mark start of include for FILE?)
-    " ::::"  pad $MOVE
-    pad $APPEND
-    pad ['] noop (:)
+    dup 5 + allocate throw >r
+    " ::::" r@ $move
+    r@ $append
+    r@ ['] noop (:)
+    r> free throw
 ;
 
 : INCLUDE.MARK.END  ( -- , mark end of include )
@@ -826,4 +836,6 @@ decimal
 FREEZE    \ prevent forgetting below this point
 
 .( Dictionary compiled, save in "pforth.dic".) cr
+\ 300000 headers-size !
+\ 700000 code-size !
 c" pforth.dic" save-forth