Changed to quasi-quote in (display-if-not) to allow calculated strings

5 years ago · 9f8010bae2
parent 75732d18c6
commit 9f8010bae2
1 changed files with 2 additions and 1 deletions
--- 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)))))
+