From 4a6f8e4302c3112badc2d23e878f6d28d024cd9b Mon Sep 17 00:00:00 2001 From: Ralph Ronnquist Date: Sun, 30 May 2021 16:17:14 +1000 Subject: [PATCH] be quiet unless verbose --- compile.asm | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/compile.asm b/compile.asm index 8e87bf8..d5fee48 100644 --- a/compile.asm +++ b/compile.asm @@ -250,6 +250,9 @@ p_numper_POSITIVE: ;; returns 1 if stream ends and 0 if an unknown word is found dq p_gtR ; Keep the stream on the return stack. p_evaluate_stream_PROMPT: + dq p_verboseQ + dq p_get + BRANCH 0,p_evaluate_stream_LOOP dq p_depth dq p_dot dq p_literal_string @@ -287,7 +290,9 @@ p_evaluate_stream_COMPILE: p_evaluate_stream_NOTWORD: dq p_drop dq p_number + dq p_dup BRANCH 0,p_evaluate_stream_BAD ; branch if 0 + dq p_drop dq p_state dq p_get BRANCH 0,p_evaluate_stream_AFTER ; branch if 0 -- 2.39.2