Add definition of 2CONSTANT

[debian/pforth] / fth / system.fth

diff --git a/fth/system.fth b/fth/system.fth
index 2bd959d2eb59c9648fd92a5c76f799c10f12763d..5b199f157d257ba1ec821ffb5a83f3f22ecea283 100644 (file)
--- a/fth/system.fth
+++ b/fth/system.fth
@@ -321,6 +321,10 @@
         dup cell+ @ swap @
 ;
 
+: 2CONSTANT ( n1 n2 <name> -c- ) ( -x- n1 n2 )
+        CREATE , , ( n1 n2 -- )
+        DOES> 2@   ( -- n1 n2 )
+;
 
 : ABS ( n -- |n| )
         dup 0<