From 923900a6aeed3ad1d156b1c161d655e5de1bc2e8 Mon Sep 17 00:00:00 2001
From: alex-eg <alexey.e.egorov@gmail.com>
Date: Sat, 14 Jun 2025 17:08:18 +0300
Subject: [PATCH] fix non-symbolic template replacements causing error on
 expansion

symbol->string doesn't work for anything besides synmols. And not
any (not (list? ...)) is a symbol. String are not, for example.
---
 templates.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/templates.scm b/templates.scm
index 25dcf20..e36e4e3 100644
--- a/templates.scm
+++ b/templates.scm
@@ -25,7 +25,7 @@
                               (fmt #f "([^\\-]?)" (symbol->string (car x)) "([\\-$]?)")
                               (fmt #f "\\1" (symbol->string (cdr x)) "\\2"))
                              x))
-                        (filter (fn (not (list? (cdr x)))) subst-alist))))
+                        (filter (fn (symbol? (cdr x))) subst-alist))))
     (string->symbol
      (string-substitute* str subst-map))))