* use version/utils instead of a private copy of the same code

* removed planet/private/test.ss which was testing that code
* changed angle brackets used in syntax renderings (got lumped in this
  commit by mistake)

svn: r10759

original commit: 91eb4687daafe4177b3c0aa9e40a78535a8511f0
This commit is contained in:
Eli Barzilay 2008-07-14 09:19:29 +00:00
parent 28f34349dd
commit d2552556d5

View File

@ -1011,8 +1011,16 @@
`(span ([class "mywbr"]) " "))
(render-other (substring i (cdar m)) part ri))
(ascii-ize i)))]
[(eq? i 'mdash) `(" " ndash " ")]
[(symbol? i) (list i)]
[(symbol? i)
(case i
[(mdash) '(" " ndash " ")]
;; use "single left/right-pointing angle quotation mark"
;; -- it's not a correct choice, but works best for now
;; (see the "Fonts with proper angle brackets"
;; discussion on the mailing list from June 2008)
[(lang) '(8249)]
[(rang) '(8250)]
[else (list i)])]
[else (list (format "~s" i))]))
(define/private (ascii-ize s)