scribble latex rendering: remove a pair of {} around element with style

svn: r13889

original commit: b2d2001eb0fbc787149f43b4b2c94d9f5e4cb28f
This commit is contained in:
Matthew Flatt 2009-03-01 12:07:25 +00:00
parent 2c8cfdb3e9
commit 51b61f80fd

View File

@ -166,10 +166,10 @@
(with-attributes-style s) (with-attributes-style s)
s)))] s)))]
[wrap (lambda (e s tt?) [wrap (lambda (e s tt?)
(printf "{\\~a{" s) (printf "\\~a{" s)
(parameterize ([rendering-tt (or tt? (rendering-tt))]) (parameterize ([rendering-tt (or tt? (rendering-tt))])
(super render-element e part ri)) (super render-element e part ri))
(printf "}}"))]) (printf "}"))])
(cond (cond
[(symbol? style) [(symbol? style)
(case style (case style