X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=forth.jl.git;a=blobdiff_plain;f=src%2Fforth.jl;h=3526960f1425e797a2a95b89b0b2a5b4f6036486;hp=6db24eaf10d8d2b1db88b0175aa72498fc0fad68;hb=3e8e7d92da6a3231816f97d30c2222a4ff19ddda;hpb=401ed885668f77b6182ca6b34ff03d291984ce29 diff --git a/src/forth.jl b/src/forth.jl index 6db24ea..3526960 100644 --- a/src/forth.jl +++ b/src/forth.jl @@ -1247,7 +1247,10 @@ INCLUDED_CFA = defWord("INCLUDED", FROMR_CFA, SOURCE_ID_CFA, STORE_CFA, # Restore input source EXIT_CFA]) -INCLUDE_CFA = defWord("INCLUDE", [LIT_CFA, 32, WORD_CFA, INCLUDED_CFA, EXIT_CFA]); +INCLUDE_CFA = defWord("INCLUDE", [LIT_CFA, 32, WORD_CFA, + DUP_CFA, INCR_CFA, + SWAP_CFA, FETCH_CFA, + INCLUDED_CFA, EXIT_CFA]); ABORT_CFA = defWord("ABORT",