Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-05 12:16:37 +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

3
lib/init.scm
View file

@ -772,9 +772,10 @@
((pair? t) ((pair? t)
(cond (cond
((ellipse-escape? t) ((ellipse-escape? t)
(list _quote
(if (pair? (cdr t)) (if (pair? (cdr t))
(if (pair? (cddr t)) (cddr t) (cadr t)) (if (pair? (cddr t)) (cddr t) (cadr t))
(cdr t))) (cdr t))))
((ellipse? t) ((ellipse? t)
(let* ((depth (ellipse-depth t)) (let* ((depth (ellipse-depth t))
(ell-dim (+ dim depth)) (ell-dim (+ dim depth))