From: Clyne Sullivan Date: Tue, 3 Dec 2024 23:03:48 +0000 (-0500) Subject: execute X-Git-Url: https://code.bitgloo.com/bitgloo/alee-forth/commit/b31036813c7706527e2067392660c9068447fa2c.patch/bitgloo/alee-forth/commit/b31036813c7706527e2067392660c9068447fa2c.patch/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 , ] ;