From 92cae4e8b88149b27f7ece0819b2faa1ab358ea0 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Wed, 2 Mar 2011 00:33:24 +0900 Subject: [PATCH] Fixing ellipsis escapes in syntax-rules templates. --- lib/init.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lib/init.scm b/lib/init.scm index eea9d994..fb2dadca 100644 --- a/lib/init.scm +++ b/lib/init.scm @@ -772,9 +772,10 @@ ((pair? t) (cond ((ellipse-escape? t) - (if (pair? (cdr t)) - (if (pair? (cddr t)) (cddr t) (cadr t)) - (cdr t))) + (list _quote + (if (pair? (cdr t)) + (if (pair? (cddr t)) (cddr t) (cadr t)) + (cdr t)))) ((ellipse? t) (let* ((depth (ellipse-depth t)) (ell-dim (+ dim depth))