add missing symbolic elements in element->string

svn: r9883 original commit: 935ce0c9e35f1717e29f97058c1dd8873e006c68
2008-05-19 01:55:42 +00:00 · 2008-05-19 01:55:42 +00:00 · 1453e39789
commit 1453e39789
parent ae5f6458d8
1 changed files with 3 additions and 0 deletions
--- a/collects/scribble/struct.ss
+++ b/collects/scribble/struct.ss
@ -385,10 +385,13 @@
       [(delayed-element? c) (element->string ((delayed-element-plain c)))]
       [(string? c) c]
       [else (case c
+               [(mdash) "---"]
               [(ndash) "--"]
               [(ldquo rdquo) "\""]
               [(rsquo) "'"]
               [(rarr) "->"]
+               [(lang) "<"]
+               [(rang) ">"]
               [else (format "~s" c)])])]
    [(c renderer sec ri)
     (cond