From: Clyne Sullivan <clyne@bitgloo.com>
Date: Tue, 3 Dec 2024 23:03:48 +0000 (-0500)
Subject: execute
X-Git-Url: https://code.bitgloo.com/clyne/sforth/commit/f8fdc3746ca3f4a3b4e913b0bf34ce475eca0bf5/clyne/sforth/commit/f8fdc3746ca3f4a3b4e913b0bf34ce475eca0bf5/git?a=commitdiff_plain;h=3fe10655e920441f2dcd10cc8101edd54549e8e8;p=clyne%2Fsforth.git

execute
---

diff --git a/core.fth b/core.fth
index 82763e9..170edea 100644
--- a/core.fth
+++ b/core.fth
@@ -72,3 +72,4 @@
 
 : (         begin [char] ) key = until ; immediate
 
+: execute   [ here 3 cells + ] literal ! [ ' _jmp , 0 , ] ;