Ticket #156: 0001-Hopefully-fix-unquote-splicing-for-real.patch

File 0001-Hopefully-fix-unquote-splicing-for-real.patch, 734 bytes (added by Jim Ursetto, 16 years ago)

  • expand.scm 

    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  
    11701170                                (if (eq? n 0)
    11711171                                    `(##sys#append ,htx
    11721172                                                   ,(walk tail n) )
    1173                                     `(##sys#cons (##sys#list ,%unquote-splicing
     1173                                    `(##sys#cons (##sys#list (,%quote ,%unquote-splicing)
    11741174                                                             ,(walk htx (fx- n 1)) )
    11751175                                                 ,(walk tail n) ) ) )
    11761176                              `(##sys#cons ,(walk head n) ,(walk tail n)) ) ) )