From: Tim Vaughan <tgvaughan@gmail.com>
Date: Mon, 10 Oct 2016 01:29:30 +0000 (+1300)
Subject: INCLUDE now reads lib_2 up to ENDCASE.
X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=commitdiff_plain;h=3e8e7d92da6a3231816f97d30c2222a4ff19ddda;p=forth.jl.git

INCLUDE now reads lib_2 up to ENDCASE.
---

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",