add missing symbolic elements in element->string

svn: r9883
2008-05-19 01:55:42 +00:00 · 2008-05-19 01:55:42 +00:00 · 935ce0c9e3
commit 935ce0c9e3
parent a8fd2e018c
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