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