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