From: Tim Vaughan <tgvaughan@gmail.com>
Date: Sat, 8 Oct 2016 21:37:02 +0000 (+1300)
Subject: INCLUDED and INCLUDE should now work.
X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=commitdiff_plain;h=13629255bf805fff75dbc1e553bc806a8ffb4f99;p=forth.jl.git

INCLUDED and INCLUDE should now work.
---

diff --git a/src/forth.jl b/src/forth.jl
index f125707..9c62fe6 100644
--- a/src/forth.jl
+++ b/src/forth.jl
@@ -979,6 +979,8 @@ QUERY_CFA = defWord("QUERY",
     LIT_CFA, 0, TOIN_CFA, STORE_CFA,
     EXIT_CFA])
 
+# ( fid -- flag )
+# Flag is false when EOF is reached.
 QUERY_FILE_CFA = defWord("QUERY-FILE",
     [FIB_CFA, LIT_CFA, 160, ROT_CFA, READ_LINE_CFA,
     DROP_CFA, SWAP_CFA,
@@ -1209,20 +1211,16 @@ QUIT_CFA = defWord("QUIT",
     INTERPRET_CFA, PROMPT_CFA,
     BRANCH_CFA,-4])
 
-INTERPRET_CFA = defWord("INTERPRET",
+INCLUDED_CFA = defWord("INCLUDED",
     [SOURCE_ID_CFA, FETCH_CFA, TOR_CFA, # Store current source on return stack
-
-    LIT_CFA, 32, WORD_CFA, # Read next word from current input source
-
     FAM_RO_CFA, OPEN_FILE_CFA, DROP_CFA, # Open the file named by this word.
-
     DUP_CFA, SOURCE_ID_CFA, STORE_CFA, # Mark this as the current source
-
     DUP_CFA, QUERY_FILE_CFA, # Read line from file
-
     INTERPRET_CFA,
+    INVERT_CFA, ZBRANCH_CFA, -5,
+    DROP_CFA, EXIT_CFA])
 
-    BRANCH_CFA, -4])
+INCLUDE_CFA = defWord("INCLUDE", [LIT_CFA, 32, WORD_CFA, INCLUDED_CFA]);
 
 
 ABORT_CFA = defWord("ABORT",