From 3e8e7d92da6a3231816f97d30c2222a4ff19ddda Mon Sep 17 00:00:00 2001 From: Tim Vaughan Date: Mon, 10 Oct 2016 14:29:30 +1300 Subject: [PATCH] INCLUDE now reads lib_2 up to ENDCASE. --- src/forth.jl | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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", -- 2.20.1