From 13a069f075d502c3a026592e71c4bebcf067d05b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ond=C5=99ej=20Hru=C5=A1ka?= <ondra@ondrovo.com>
Date: Sat, 27 Nov 2021 01:41:33 +0100
Subject: [PATCH] fixes for .(

---
 src/fh_builtins_text.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/fh_builtins_text.c b/src/fh_builtins_text.c
index b86ed20..94bbe00 100644
--- 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 {