~ chicken-core (chicken-5) 39a20164449319603a966ca2d85181ddd9c43656
commit 39a20164449319603a966ca2d85181ddd9c43656
Author: felix <felix@call-with-current-continuation.org>
AuthorDate: Mon Dec 21 16:05:41 2009 +0100
Commit: felix <felix@call-with-current-continuation.org>
CommitDate: Mon Dec 21 16:05:41 2009 +0100
fixed (?) bug in quasiquote
diff --git a/expand.scm b/expand.scm
index 1bf1984c..91c56f6a 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 ,%unquote-splicing
,(walk htx (fx- n 1)) )
,(walk tail n) ) ) )
`(##sys#cons ,(walk head n) ,(walk tail n)) ) ) )
Trap