From fad6b12e3aa8d52d9ee1f32ab7d2f198f8362173 Mon Sep 17 00:00:00 2001
From: Max Barraclough <maxbarraclough@gmail.com>
Date: Sun, 14 Mar 2021 21:12:36 +0000
Subject: [PATCH] Add definition of 2CONSTANT

Part of DOUBLE NUMBER word set.
---
 fth/system.fth | 4 ++++
 1 file changed, 4 insertions(+)

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<
-- 
2.30.2