From 117c25e35466b8604f9448ea1c1cfba5ecf728f2 Mon Sep 17 00:00:00 2001 From: Tim Vaughan Date: Sat, 15 Oct 2016 13:45:35 +1300 Subject: [PATCH] BYE now prints nothing when input stream is file. --- src/forth.jl | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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) -- 2.20.1