Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-05 04:06:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fixing ellipsis escapes in syntax-rules templates.

Browse source
This commit is contained in:
Alex Shinn 2011-03-02 00:33:24 +09:00
parent afc6a96d68
commit 92cae4e8b8
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lib/init.scm
View file

@ -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))