diff options
Diffstat (limited to 'Src/text.c')
-rw-r--r-- | Src/text.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/Src/text.c b/Src/text.c index 9b18a3510..5920c00f6 100644 --- a/Src/text.c +++ b/Src/text.c @@ -274,10 +274,12 @@ gettext2(Estate state) break; case WC_SUBLIST: if (!s) { + if (wc_code(*state->pc) != WC_PIPE) + stack = 1; if (WC_SUBLIST_FLAGS(code) & WC_SUBLIST_NOT) - taddstr("! "); + taddstr(stack ? "!" : "! "); if (WC_SUBLIST_FLAGS(code) & WC_SUBLIST_COPROC) - taddstr("coproc "); + taddstr(stack ? "coproc" : "coproc "); s = tpush(code, (WC_SUBLIST_TYPE(code) == WC_SUBLIST_END)); } else { if (!(stack = (WC_SUBLIST_TYPE(code) == WC_SUBLIST_END))) { |