suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add missing symbolic elements in element->string

Browse Source 
svn: r9883
This commit is contained in:
Matthew Flatt 2008-05-19 01:55:42 +00:00
parent a8fd2e018c
commit 935ce0c9e3
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/scribble/struct.ss
View File

@ -385,10 +385,13 @@
[(delayed-element? c) (element->string ((delayed-element-plain c)))] [(delayed-element? c) (element->string ((delayed-element-plain c)))]
[(string? c) c] [(string? c) c]
[else (case c [else (case c
[(mdash) "---"]
[(ndash) "--"] [(ndash) "--"]
[(ldquo rdquo) "\""] [(ldquo rdquo) "\""]
[(rsquo) "'"] [(rsquo) "'"]
[(rarr) "->"] [(rarr) "->"]
[(lang) "<"]
[(rang) ">"]
[else (format "~s" c)])])] [else (format "~s" c)])])]
[(c renderer sec ri) [(c renderer sec ri)
(cond (cond