From 9f8010bae2b5a47c98e97893bf50c517e271eca9 Mon Sep 17 00:00:00 2001
From: Brady McDonough <brady.mcd.codes@gmail.com>
Date: Tue, 6 Apr 2021 01:05:06 -0600
Subject: [PATCH] Changed to quasi-quote in (display-if-not) to allow
 calculated strings

---
 tk/listlogic.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/tk/listlogic.scm b/tk/listlogic.scm
index a1797b4..66c7deb 100644
--- a/tk/listlogic.scm
+++ b/tk/listlogic.scm
@@ -68,4 +68,5 @@
      (begin (if (not $cond) (display $message))
             (newline)))
     ((display-if-not $cond . $messages)
-     (display-if-not $cond (string-concatenate/shared '$messages)))))
+     (display-if-not $cond (string-concatenate/shared `$messages)))))
+