From 12551d4f59d7512395929472c0af1509c83069ae Mon Sep 17 00:00:00 2001
From: Masaya Tojo <masaya@tojo.tokyo>
Date: Thu, 16 Sep 2021 16:34:51 +0900
Subject: No expand quoted expressions.

* vikalpa.scm (expand*): No expand quoted expressions.
---
 vikalpa.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'vikalpa.scm')

diff --git a/vikalpa.scm b/vikalpa.scm
index dbf032b..480bbca 100644
--- a/vikalpa.scm
+++ b/vikalpa.scm
@@ -588,7 +588,8 @@
              (expr expr))
     (let ((new-expr (expand ms expr)))
       (if (equal? expr new-expr)
-          (if (pair? new-expr)
+          (if (and (not (expr-quoted? new-expr))
+                   (pair? new-expr))
               (cons (expand* ms (car new-expr))
                     (expand* ms (cdr new-expr)))
               new-expr)
-- 
cgit v1.2.3