From: Max Barraclough <maxbarraclough@gmail.com>
Date: Sun, 14 Mar 2021 21:12:36 +0000 (+0000)
Subject: Add definition of 2CONSTANT
X-Git-Url: https://git.gag.com/?a=commitdiff_plain;ds=sidebyside;h=fad6b12e3aa8d52d9ee1f32ab7d2f198f8362173;p=debian%2Fpforth

Add definition of 2CONSTANT

Part of DOUBLE NUMBER word set.
---

diff --git a/fth/system.fth b/fth/system.fth
index 2bd959d..5b199f1 100644
--- 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<