X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=forth.jl.git;a=blobdiff_plain;f=src%2Fforth.jl;fp=src%2Fforth.jl;h=81505a1d9171cc6d590bb1ddb94323f90225d1ad;hp=02f74afed367a7a2d808f3226e28038ec7107351;hb=117c25e35466b8604f9448ea1c1cfba5ecf728f2;hpb=74030e7ce7cbe674ac71767cff6e9c3f3564c3b0

diff --git a/src/forth.jl b/src/forth.jl
index 02f74af..81505a1 100644
--- a/src/forth.jl
+++ b/src/forth.jl
@@ -1233,7 +1233,9 @@ ABORT_CFA = defWord("ABORT",
     [CLOSE_FILES_CFA, DROP_CFA, PSP0_CFA, PSPSTORE_CFA, QUIT_CFA])
 
 BYE_CFA = defPrimWord("BYE", () -> begin
-    println("\nBye!")
+    if mem[SOURCE_ID_VAR] == 0
+        println("\nBye!")
+    end
     return 0
 end)