dc: unbreak interactive mode - was trying to get next tokens instead of executing

function                                             old     new   delta
zbc_program_read                                       -     268    +268
zdc_program_printStream                                -     146    +146
zbc_program_exec                                    4046    4182    +136
zdc_program_execStr                                  472     512     +40
zdc_parse_exprs_until_eof                              -      26     +26
zbc_vm_process                                       740     765     +25
zbc_lex_next                                        2225    2240     +15
zdc_parse_expr                                       569     535     -34
zbc_program_pushArray                                147       -    -147
zdc_program_asciify                                  370       -    -370
------------------------------------------------------------------------------
(add/remove: 3/2 grow/shrink: 4/1 up/down: 656/-551)          Total: 105 bytes

Signed-off-by: Denys Vlasenko <vda.linux@googlemail.com>

1 files changed, 15 insertions, 0 deletions

diff --git a/testsuite/dc.tests b/testsuite/dc.tests
index 8edfa07ca..cb2dcbc23 100755
--- a/testsuite/dc.tests
+++ b/testsuite/dc.tests
@@ -41,6 +41,21 @@ testing "dc complex without spaces (multiple args)" \
         "16\n" \
         "" ""
 
+testing "dc '>a' (conditional execute string) 1" \
+        "dc" \
+        "1\n9\n" \
+        "" "[1p]sa [2p]sb 1 2>a\n9p"
+
+testing "dc '>a' (conditional execute string) 2" \
+        "dc" \
+        "9\n" \
+        "" "[1p]sa [2p]sb 2 1>a\n9p"
+
+testing "dc '>aeb' (conditional execute string with else)" \
+        "dc" \
+        "2\n9\n" \
+        "" "[1p]sa [2p]sb 2 1>aeb\n9p"
+
 for f in dc_*.dc; do
         r="`basename "$f" .dc`_results.txt"
         test -f "$r" || continue