From bb3d7c1d3ee302207fcd75b17a3479bea06cfea2 Mon Sep 17 00:00:00 2001
From: alex-eg <>
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))))