X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=forth.jl.git;a=blobdiff_plain;f=src%2Fforth.jl;h=58f6940c661e053741cf13c9876b703e7a98a560;hp=40139176bb53fe9ae95cca488303c0ffce3e9431;hb=2ab8823537ce8773c38605931ab69b332953c738;hpb=81df43061870de0bbe2cb4f866d238ef72c21052

diff --git a/src/forth.jl b/src/forth.jl
index 4013917..58f6940 100644
--- a/src/forth.jl
+++ b/src/forth.jl
@@ -1245,6 +1245,7 @@ INCLUDED_CFA = defWord("INCLUDED",
     SOURCE_ID_CFA, FETCH_CFA, QUERY_FILE_CFA,   # Read line from file
     INTERPRET_CFA,                              # Interpret line
     EOF_FLAG_CFA, FETCH_CFA, ZBRANCH_CFA, -7,   # Loop if not EOF
+    SOURCE_ID_CFA, FETCH_CFA,
     CLOSE_FILE_CFA, DROP_CFA,                   # Close file
     SOURCE_ID_CFA, STORE_CFA,                   # Restore input source
     EXIT_CFA])
@@ -1305,8 +1306,8 @@ function run(;initialize=true)
     jmp = mem[EXIT_CFA]
     while jmp != 0
         try
-            #print("Entering prim $(getPrimName(jmp)), PS: ")
-            #printPS()
+            print("Entering prim $(getPrimName(jmp)), PS: ")
+            printPS()
 
             jmp = callPrim(jmp)