From 2aad9fe2ea95a686fb40d9dd91e2ecdb12883ac7 Mon Sep 17 00:00:00 2001 From: zbigniew 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/expand.scm +++ b/expand.scm @@ -1170,7 +1170,7 @@ (if (eq? n 0) `(##sys#append ,htx ,(walk tail n) ) - `(##sys#cons (##sys#list ,%unquote-splicing + `(##sys#cons (##sys#list (,%quote ,%unquote-splicing) ,(walk htx (fx- n 1)) ) ,(walk tail n) ) ) ) `(##sys#cons ,(walk head n) ,(walk tail n)) ) ) ) -- 1.6.5.3