fixes for .(

3 years ago · 13a069f075
parent 8d66238f47
commit 13a069f075
1 changed files with 1 additions and 1 deletions
--- a/src/fh_builtins_text.c
+++ b/src/fh_builtins_text.c
@ -292,7 +292,7 @@ static enum fh_error w_dot_quote(struct fh_thread_s *fh, const struct fh_word_s
    }
  }

-  if (fh->state == FH_STATE_INTERPRET) {
+  if (fh->state == FH_STATE_INTERPRET || c == ')') { // XXX special case for .(
    FHPRINT("%.*s", (int) len, start);
    // the string is invalidated immediately, heap pointer is NOT advanced.
  } else {