From 1453e39789e25878e1a8f46b01bf449b891e414e Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 19 May 2008 01:55:42 +0000
Subject: [PATCH] add missing symbolic elements in element->string

svn: r9883

original commit: 935ce0c9e35f1717e29f97058c1dd8873e006c68
---
 collects/scribble/struct.ss | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/collects/scribble/struct.ss b/collects/scribble/struct.ss
index 977fd890..6b77067f 100644
--- 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