From 2aad9fe2ea95a686fb40d9dd91e2ecdb12883ac7 Mon Sep 17 00:00:00 2001
From: zbigniew <zbigniewsz@gmail.com>
Date: Thu, 7 Jan 2010 12:52:00 -0600
Subject: [PATCH] Hopefully fix unquote-splicing for real
---
expand.scm | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/expand.scm b/expand.scm
index 91c56f6..976a62a 100644
a
|
b
|
|
1170 | 1170 | (if (eq? n 0) |
1171 | 1171 | `(##sys#append ,htx |
1172 | 1172 | ,(walk tail n) ) |
1173 | | `(##sys#cons (##sys#list ,%unquote-splicing |
| 1173 | `(##sys#cons (##sys#list (,%quote ,%unquote-splicing) |
1174 | 1174 | ,(walk htx (fx- n 1)) ) |
1175 | 1175 | ,(walk tail n) ) ) ) |
1176 | 1176 | `(##sys#cons ,(walk head n) ,(walk tail n)) ) ) ) |