diff options
author | Masaya Tojo <masaya@tojo.tokyo> | 2021-09-16 16:34:51 +0900 |
---|---|---|
committer | Masaya Tojo <masaya@tojo.tokyo> | 2021-09-16 16:34:51 +0900 |
commit | 12551d4f59d7512395929472c0af1509c83069ae (patch) | |
tree | c5e5d5f8676bd6f350d7b2af3cea3f24f9de0110 /vikalpa.scm | |
parent | 8db40ba61c663b1c3702f3aacb26d17147feb32b (diff) |
No expand quoted expressions.
* vikalpa.scm (expand*): No expand quoted expressions.
Diffstat (limited to 'vikalpa.scm')
-rw-r--r-- | vikalpa.scm | 3 |
1 files changed, 2 insertions, 1 deletions
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) |