angle brackets in Scribble output

svn: r9138

original commit: 89d9e02cd05bcfa961268fe5fde6916e7c55154c

collects/scribble/bnf.ss

@@ -50,9 +50,9 @@
   (define BNF-etc "...")
 
   (define/kw (nonterm #:body s)
-    (make-element #f (append (list "<") 
+    (make-element #f (append (list 'lsaquo)
                              (list (make-element 'italic (decode-content s)))
-                             (list ">"))))
+                             (list 'rsaquo))))
 
   (define/kw (optional #:body s)
     (make-element #f (append (list "[") (decode-content s) (list "]"))))

collects/scribble/latex-render.ss

@@ -317,6 +317,8 @@
                          [(rarr) "$\\rightarrow$"]
                          [(alpha) "$\\alpha$"]
                          [(infin) "$\\infty$"]
+                         [(lsaquo) "$\\langle$"]
+                         [(rsaquo) "$\\rangle$"]
                          [else (error 'render "unknown symbol element: ~e" i)]))]
          [else (display-protected (format "~s" i))])
         null)

collects/scribble/text-render.ss

@@ -89,7 +89,8 @@
                      [(ndash) "\U2013"]
                      [(ldquo) "\U201C"]
                      [(rdquo) "\U201D"]
-                     [(rsquo) "\U2019"]
+                     [(lsaquo) ">"]
+                     [(rsaquo) "<"]
                      [(rarr) "->"]
                      [(nbsp) " "]
                      [else (error 'text-render "unknown element symbol: ~e" i)]))]