From abedc84f1a2a99c5a1adae8387da16a6b48e5fc4 Mon Sep 17 00:00:00 2001
From: Jesse McDonald <nybble41@gmail.com>
Date: Sat, 31 Oct 2020 11:57:35 -0500
Subject: [PATCH] remove redundant store of DODEFER in CFA of deferred word

---
 startup.4th | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/startup.4th b/startup.4th
index f0ed82c..68bbd76 100644
--- a/startup.4th
+++ b/startup.4th
@@ -190,13 +190,13 @@ DEFER QUIT
 
 >>UTILITY
 
-: DEFERRED?  ( xt -- )  >CFA @   DODEFER <>   EXCP-TYPE-MISMATCH AND   THROW ;
+: DEFERRED?  ( xt -- )  >CFA @ ▪ DODEFER <> ▪ EXCP-TYPE-MISMATCH AND ▪ THROW ;
 
 >>FORTH
 
 \ Fetch and store the target of the deferred word denoted by deferred-xt
-: DEFER@ ( deferred-xt -- xt ) DUP DEFERRED? >DFA @ ;
-: DEFER! ( xt deferred-xt -- ) DUP DEFERRED? DODEFER OVER >CFA ! >DFA ! ;
+: DEFER@ ( deferred-xt -- xt ) DUP DEFERRED? ▪ >DFA @ ;
+: DEFER! ( xt deferred-xt -- ) DUP DEFERRED? ▪ >DFA ! ;
 
 >>LINUX