adjust typesetting so the ellipsis uses the default style, not

literal-style (unless an atomic-rewriter is in place)
This commit is contained in:
Robby Findler 2012-01-14 21:20:28 -06:00
parent b78ee4258c
commit 262931bb80

View File

@ -53,15 +53,15 @@
(struct-out line)
current-text)
(define STIX? #f)
;; atomic-rewrite-table : (parameter (listof (list symbol (union string pict))))
(define atomic-rewrite-table
(make-parameter
`((... ,(if STIX?
(basic-text "\u22ef" (default-style))
"..."))
`((... ,(λ ()
(if STIX?
(basic-text "\u22ef" (default-style))
(basic-text "..." (default-style)))))
(hole "[]"))))
(define-syntax (with-atomic-rewriter stx)