Adding core forth words.

[forth.jl.git] / src / forth.jl

diff --git a/src/forth.jl b/src/forth.jl
index a3c55f0..19e5965 100644 (file)
--- a/src/forth.jl
+++ b/src/forth.jl
@@ -882,7 +882,7 @@ BYE = defPrimWord("BYE", () -> begin
 end)
 
 NL = defPrimWord("\n", () -> begin
-    if mem[STATE] == 0
+    if mem[STATE] == 0 && reg.source == STDIN
         println(" ok")
     end
     return NEXT