be quiet unless verbose

diff --git a/compile.asm b/compile.asm
index 8e87bf87012e2403217c7aa8e29963c79a41f70f..d5fee48e49add74dee2a2fa7941b039f2f769ceb 100644 (file)
--- 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